Предмет: Информатика,
автор: garfar
найти сумму чисел 4-х значного числа используя линейный алгоритм
Ответы
Автор ответа:
0
var
n,s:longint;
begin
Write('Введите натуральное четырехзначное число: ');
Readln(n);
s:=n mod 10;
n:=n div 10;
s:=s+n mod 10;
n:=n div 10;
s:=s+n mod 10;
n:=n div 10;
s:=s+n;
Writeln('Сумма цифр введенного числа равна ',s)
end.
Тестовое решение:
Введите натуральное четырехзначное число: 1745
Сумма цифр введенного числа равна 17
n,s:longint;
begin
Write('Введите натуральное четырехзначное число: ');
Readln(n);
s:=n mod 10;
n:=n div 10;
s:=s+n mod 10;
n:=n div 10;
s:=s+n mod 10;
n:=n div 10;
s:=s+n;
Writeln('Сумма цифр введенного числа равна ',s)
end.
Тестовое решение:
Введите натуральное четырехзначное число: 1745
Сумма цифр введенного числа равна 17
Похожие вопросы
Предмет: Математика,
автор: Аноним
Предмет: Алгебра,
автор: ikikit5p2ga0r
Предмет: Английский язык,
автор: vitea4466
Предмет: Математика,
автор: poma2002