1. найти сумму первых 10 чисел, кратных 7; 2. вывести на экран 11 первых чисел кратных 5; 3. составить программу рисования 18 прямоугольников синего цвета, координаты которых определяется случайным образом, а стороны равны а=140, b=40.
108
215
Ответы на вопрос:
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.
Популярно: Информатика
-
anettaaa114.09.2022 21:41
-
fokslov6916.01.2020 07:14
-
tayteldiyev200518.10.2021 22:33
-
маша302530.08.2020 08:37
-
agellertova08.09.2022 15:06
-
ra1si1ka123.11.2020 16:37
-
яильяатыилья30.01.2021 10:51
-
Legion2K1705.06.2021 14:36
-
Аяна176513.01.2023 14:57
-
19835603.08.2021 20:26