Предмет: Информатика,
автор: Best333
Ввести целое число и найти сумму его цифр(1234)
Паскаль
Ответы
Автор ответа:
0
var s,i:integer;
begin readln(i); s:=0; repeat s:=i mod 10 + s; i:=i div 10 until i=0; writeln(s); readln end.
begin readln(i); s:=0; repeat s:=i mod 10 + s; i:=i div 10 until i=0; writeln(s); readln end.
Автор ответа:
0
var
a, Summ:integer;
begin
write('Введите число ');
readln(a);
Summ := 0;
while a > 0 do
begin
Summ := Summ + a mod 10;
a := a div 10;
end;
writeln('Сумма цифр равна ', Summ);
end.
Интересные вопросы
Предмет: Қазақ тiлi,
автор: skripnikovvalera080
Предмет: Математика,
автор: Salimaalybaeva209
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: katushka10
Предмет: История,
автор: Helga20