Найти "Сумму цифр четырёхзначного числа" В PaskalABC

Ответы:

АЛИНКА ВИДЯЕВА

09-09-2012 11:21

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.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Олеся Сидорова

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Найти "Сумму цифр четырёхзначного числа" В PaskalABC» от пользователя Олеся Сидорова в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!