Вася подсчитал сумму цифр натурального числа n , а затем сумму цифр у полученной суммы цифр. какое число он получил? входные данные вводится одно натуральное число n , меньшее 10 000 . выходные данные выведите одно натуральное число — ответ в . нужно сделать на pascal abc

Yan132142 Yan132142    1   08.09.2019 12:30    3

Ответы
pidgenatar pidgenatar  07.10.2020 00:49
Var n,s:integer;
begin
readln(n);
s:=0;
while n>0 do
 begin
 s:=s+n mod 10;
 n:=n div 10;
 end;
writeln(s div 10 + s mod 10);
end.

Пример:
4093
7
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика