Подсчитать количество (сумму)цифр в записи целого неотрицательного числа. (в паскале авс)
171
179
Ответы на вопрос:
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.
Даны три числа. вывести вначале наименьшее, а затем наибольшее из данных чисел.
Популярно: Информатика
-
Matvey006115.07.2022 15:48
-
тик1234503.08.2020 02:46
-
123456789033312315.12.2021 15:04
-
Маринрчка08.01.2020 22:08
-
grskdarina26.02.2023 03:46
-
Яркий201708.03.2020 00:14
-
giulia25030510.08.2022 22:55
-
NiKaEmpty07.10.2021 20:45
-
batkia22817.10.2021 19:13
-
sigaretta15.08.2020 21:15