Ответы на вопрос:
Var a,k: integer; begin a: =1; k: =0; while (a< > 0) do begin if ((a< 100) and (a> 9) and (a mod 8 =0)) then k: =k+1; end; writeln(k); end.
Популярно: Информатика
-
demondru18.04.2023 01:45
-
Анастасия278722.01.2021 23:20
-
WhiteRout22.06.2023 15:14
-
wertyfaq06.04.2021 12:51
-
Алекс77777704.09.2022 01:37
-
Anhard2312.04.2021 06:27
-
katya256204.03.2022 09:15
-
Den1236466501.01.2022 00:43
-
DeQwert28.01.2023 14:36
-
synnjhcx14.03.2020 21:05