Есть ответ 👍

Подсчитать количество (сумму)цифр в записи целого неотрицательного числа. (в паскале авс)

171
179
Посмотреть ответы 2

Ответы на вопрос:


Program asd; var n,a,b: integer; begin  read(n); a: =n; while a> 0 do  begin b: =a mod 10+b; a: =a div 10; end; writeln(b); end.
MrtMiyaGi
4,7(71 оценок)

Даны три числа. вывести вначале наименьшее, а затем наибольшее из данных чисел.

Популярно: Информатика