информатика
Задача по информатике. Найти сумму цифр данного целого числа. Программа. Паскаль
Оставить ответОтвет №1
Var a,s,k:integer;beginwrite('введите число: ');readln(a);while a<>0 do begink:=a mod 10;s:=s+k;a:=a div 10;end;writeln('сумма цифр равна ',s);end.
Знаете ответ?