Ответы на вопрос:
1) var k,i: integer; begin while i< =10 do begin k: =k+1; if k mod 7 = 0 then begin writeln(k); i: =i+1; end; end. 2) var k,i: integer; begin while i< =11 do begin k: =k+1; if k mod 5 = 0 then begin writeln(k); i: =i+1; end; end.
Популярно: Информатика
-
star060222.08.2022 21:53
-
Найк200610.09.2021 07:34
-
Катя18098204.11.2020 07:49
-
сашулька0000119.11.2020 13:50
-
rkarina7909.04.2022 22:28
-
алисалисова161102.04.2020 12:28
-
AnNik0810.04.2020 13:57
-
Полина5615.06.2023 16:32
-
rinatabd124.01.2020 23:11
-
BOLYUBASH133706.06.2020 04:48