Задача по информатике. Найти сумму цифр данного целого числа. Программа. Паскаль
Задача по информатике. Найти сумму цифр данного целого числа. Программа. Паскаль
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы