Убедительная скачайте файл ( текстовый документ ) http://failzoma.ru/file/3cd008 , И решите пример, ответ в комментариях.
207
422
Ответы на вопрос:
Program n1; var a,k: integer; begin k: =0; readln(a); while a< > 0 do begin if (a mod 6=0) or (a mod 11=0) then k: =k+1; readln(a); end; writeln(k); end.
Популярно: Информатика
-
Alina153625.09.2020 16:32
-
4678864309.05.2021 19:26
-
ksutsydmi10.04.2020 14:53
-
olegovnao2706.02.2022 13:01
-
Крахмал1601.08.2020 04:32
-
Aliy25126.05.2021 19:25
-
Enot81107.09.2021 11:46
-
mfaig04.10.2020 15:40
-
Бокс11113.01.2022 09:16
-
milena22627.07.2022 06:25