Расшифровать код 11010001 10001111 11010000 10111110 11010001 10001000 11010000 10110101 11010000 10111101 11010001 10001100 11010001 10000001 11010000 10111000 11010000 10111011 11010001 10001100 11010000 10111101 11010000 10111110 11010000 10111011 11010001 10001110 11010000 10110001 11010000 10111011 11010001 10001110 11010000 10110101 11010001
178
427
Ответы на вопрос:
Program y; uses crt; var a, sum: integer; begin writeln('введите число '); readln(a); sum : = 0; while a > 0 do begin sum : = sum + a mod 10; a : = a div 10; end; writeln('сумма цифр равна ', sum); end.
Популярно: Информатика
-
maksytova0925.01.2021 15:32
-
zalina16314.06.2021 14:28
-
perov20016.03.2022 11:39
-
12рок107.01.2020 01:11
-
avetisyana90206.05.2023 08:02
-
DUGLASMORFINI30.06.2020 22:47
-
2007умник2283710.02.2020 10:08
-
семон128.01.2020 16:39
-
20042007rbn14.06.2022 14:31
-
Aysyiu20.09.2020 18:24