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

1

Ответы и объяснения

2013-04-30T13:53:49+00:00

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;

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