Даны натуральные числа n, a1,…,an, где n≤3000. Найти члены ak последовательности a1,…,an, являющиеся квадратами четных чисел, и определить их количество

Категория: Delphi/Pascal

2012-01-02 23:46:35

code: #pascal

uses crt;
var a:array[1..3000] of integer; e,i,k:integer;r:real;
begin
for i:=1 to high(a) do begin
 r:=sqrt(a[i]);
 k:=trunc(sqrt(a[i]));{}
 if ((r-k)=0)and((trunc(sqrt(a[i])) mod 2 )= 0) then begin
  write(a[i]:5);inc(e);
 end;
end;
 writeln;writeln(e);
end.

автор: Stilet

Поделиться:

Sample Code

категории

Даны натуральные числа n, a1,…,an, где n≤3000. Найти члены ak последовательности a1,…,an, являющиеся квадратами четных чисел, и определить их количество

Похожие статьи: