1. Найти сумму первых 10 чисел, кратных 7; 2. Вывести на экран 11 первых чисел кратных 5;…

Question

75

1. Найти сумму первых 10 чисел, кратных 7; 2. Вывести на экран 11 первых чисел кратных 5; 3. Составить программу рисования 18 прямоугольников синего цвета, координаты которых определяется случайным образом, а стороны равны а=140, b=40.

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

stimofey · Accepted Answer

46

stimofey

01 сентября 2022

1) vark,i: integer; beginwhile i <= 10 do begin k: =k+1; if k mod 7=0 then begin writeln (k); i: =i+1; end; end.2) vark,i: integer; beginwhile i <= 11 do begin k: =k+1; if k mod 5=0 then begin writeln (k); i: =i+1; end; end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: