Program Summa; var n, sum:integer;

begin
write('N = ');
readln(n);
sum:= 0;
repeat
sum:=sum+n mod 10;
n:=n div 10
until n=0;
write('Сумма цифр: ',sum,'')
end.
написать объяснение этой задачи почему я именно так решил

bydarinav2    2   27.04.2022 11:15    3