Из множества целых чисел [1..500] получить множество чисел, являющихся квадратами четных чисел и вывести их на экран — Pascal(Паскаль)

uses crt;
var i:integer;
 
function isSquare(n:longint):boolean;
begin
 if (n>=0) and sqr(trunc(sqrt(n)))=n then isSquare:=true else isSquare:=false;
end;
 
begin
 clrscr;
 for i:=1 to 500 do if isSquare(i) then write(i,' ');
 readln;
end.

Leave a Comment

60 − = 54