Pascal. Дано десятизначное число. Найти сумму его цифр (с помощью цикла for).
Pascal.
Дано десятизначное число. Найти сумму его цифр (с помощью цикла for).
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,c,e:longint;
begin
writeln('введите число');
readln(a);
for b:=a downto 0 do begin
c:= a mod 10;
a:=a div 10;
e:=e+c;
end;
writeln('сумма цифр числа => ',e);
end.
Не нашли ответ?
Похожие вопросы