Найти Сумма четырёхзначного числа - 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.

Объяснение кода листинга программы

В данном коде происходит сложение цифр введенного четырехзначного числа.

  1. Переменная s инициализируется значением 0.
  2. Переменная x считывается из стандартного ввода.
  3. Используется цикл while, который выполняется до тех пор, пока значение переменной x больше 0.
  4. Внутри цикла к переменной s добавляется последняя цифра числа x, полученная с помощью операции модуля (x mod 10).
  5. Затем значение переменной x делится на 10 с помощью операции деления (x div 10).
  6. После окончания цикла, результат выводится на стандартный вывод с помощью функции write(s, ' ').

Оцени полезность:

8   голосов , оценка 4.125 из 5
Похожие ответы