Каллист
5 год назад
Дано шестизначное число . Найти сумму его цифр ( ПАСКАЛЬ ) СРОЧНО !!! ПЛИИИЗЗЗЗЗЗЗЗЗЗЗЗ!
ОТВЕТЫ
Надежда
Oct 24, 2020
var sum:integer;
n:longint;
begin
readln(n);
sum := 0;
repeat
sum := sum + (n mod 10);
n := n div 10;
until n = 0;
write(sum);
end.
n:longint;
begin
readln(n);
sum := 0;
repeat
sum := sum + (n mod 10);
n := n div 10;
until n = 0;
write(sum);
end.
351
Смежные вопросы:
