Стародубский
7 год назад
Найти "Сумму цифр четырёхзначного числа" В PaskalABC
ОТВЕТЫ
Ануфрий
Aug 15, 2019
Program task;
var x,i,sum:integer;
begin
readln(x);
sum := 0;
for i := 1 to 4 do
begin
sum := x mod 10 + sum;
x := x div 10;
end;
writeln(sum);
readln;
end.
var x,i,sum:integer;
begin
readln(x);
sum := 0;
for i := 1 to 4 do
begin
sum := x mod 10 + sum;
x := x div 10;
end;
writeln(sum);
readln;
end.
221
Смежные вопросы:
