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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
