
Delakus
5 год назад
Паскаль Написать программу которая по введенному четырехзначному числу выводит сумму его цифр.Спасибо.
ОТВЕТЫ

Александър
Oct 24, 2020
begin
var t:=Abs(ReadInteger('n='));
var s:=0;
while t>0 do begin
s:=s+t mod 10;
t:=t div 10
end;
Writeln('Сумма цифр равна ',s)
end.
n= 3048
Сумма цифр равна 15
число не обязательно должно быть четырехзначным и не обязательно положительным.
309
Смежные вопросы: