31 Окт 2019 в 19:44
227 +1
0
Ответы
1

var k,i: integer;

begin

readln(k);

for i:=1 to k do

 if i mod 2=0 then write(i*i,' ');

end.

1 Ноя 2019 в 15:08
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир