Найти Сумма четырёхзначного числа - Free Pascal
Формулировка задачи:
Задача: Напишите программу, которая по введенному не более чем четырехзначному числу k будет выдавать сумму его цифр. что писать после x0(1,2,3)? и вообще правильно ли я пишу?
programm a3; var x:integer; x3,x2,x1,x0:integer; begin readln(x); x0:= x1:= x2:= x3:= write(x0:2,x1:2,x2:2,x3:2) readln(x) end.
Решение задачи: «Найти Сумма четырёхзначного числа»
textual
Листинг программы
var s, x: integer; begin readln(x); while x > 0 do begin s := s + x mod 10; x := x div 10; end; write(s, ' '); end.
Объяснение кода листинга программы
В данном коде происходит сложение цифр введенного четырехзначного числа.
- Переменная
s
инициализируется значением 0. - Переменная
x
считывается из стандартного ввода. - Используется цикл while, который выполняется до тех пор, пока значение переменной
x
больше 0. - Внутри цикла к переменной
s
добавляется последняя цифра числаx
, полученная с помощью операции модуля (x mod 10). - Затем значение переменной
x
делится на 10 с помощью операции деления (x div 10). - После окончания цикла, результат выводится на стандартный вывод с помощью функции write(s, ' ').