Циклы

[oksik_777]

Задание 1. Составить программу вывода на экран четных чисел. Вывод прекратить если квадрат выводимого числа превысит 1015. Для решения задачи ознакомиться с функцией odd(x).

[ROMA2PVT]

Uses
   CRT;
Var
i,n:integer;
begin
write('Введите количество чисел: ');
readln(n);
for i:=1 to n do
if not odd(i) then
begin
writeln(i);
if sqr(i)>1015 then break;
end;
writeln;
end.

[oksik_777]

Спасибо, ROMA2PVT.