Question

А) Вывести на экран квадрат первых двадцати нечетных чисел.
Б) Найти сумму n четных чисел, количество четных чисел задается в процессе работы программы.

Answer 1

a)

j:=0;

for i:=1 for 1000 do begin

if i mod 2 1 then begin

writeln(i);

j:=j+1;

end;

if j=20 then

break;

end;

б)Не понятно условие задачи.