Опубликовано 26.01.2018 по предмету Информатика от Гость

Паскаль: Найти сумму цифр в числе при помощи оператора repeat.
Спасибо.

Ответ оставил Гость

Var
   A:longint;
   S:integer;
Begin
Write(Введите целое число: );Read(A);
S:=0;
A:=Abs(A);
Repeat
S:=S+A mod 10;
A:=A div 10;
Until A = 0;
Write(Сумма цифр числа: ,S);
End.

Не нашел нужный ответ?

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.


Найти другие ответы