Предмет: Информатика, автор: Катежина1112

с клавиатуры вводится четырехзначное число. необходимо подсчитать сумму цифр этого числа

Ответы

Автор ответа: znmen22
0
var sum: integer;
number: longint;
begin
sum := 0;
write('Введите число: ');
readln(number);
Автор ответа: vladmor
0
var
  n,s:integer;
begin
  write('Введите число ');
  readln(n);
  while n<>0 do begin
    s:=s+ n mod 10;
    n:=n div 10;
  end;
  writeln('Сумма цифр в числе ',s);
end.

Тестовое решение:
Введите число 5342
Сумма цифр в числе 14

Похожие вопросы