Определить сумму цифр натурального числа n и вывести - вопрос №680794 от OGordienko1 22.03.2021 03:40

Question

Другие предметы: Определить сумму цифр натурального числа n и вывести его запись в обратном порядке. (программа Паскаль)

OGordienko1 · Answer

program z2;
uses crt;
var k, s, n: integer; a: longint;
begin
readln (n);
k:=0; s:=0; a:=0;
repeat
k:=k+1;
s:=s+ n mod 10;
a:= a*10 +n mod 10;
n:= n div 10;
until n=0;
writeln ('число цифр ', k, ' сумма цифр; ', s);
writeln (‘Запись в обр. порядке; ',a);
end.