Предмет: Информатика,
автор: Катежина1112
с клавиатуры вводится четырехзначное число. необходимо подсчитать сумму цифр этого числа
Ответы
Автор ответа:
0
var sum: integer;
number: longint;
begin
sum := 0;
write('Введите число: ');
readln(number);
number: longint;
begin
sum := 0;
write('Введите число: ');
readln(number);
Автор ответа:
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
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
Похожие вопросы
Предмет: География,
автор: dimchikpro448
Предмет: Русский язык,
автор: maxsim13121975
Предмет: Обществознание,
автор: polinamamina60
Предмет: Физика,
автор: eldarchik0