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