Заполнить файл натуральными числами полученными с помощью генератора случайных чисел. найти количество квадратов нечетных чисел среди компонентов — Pascal(Паскаль)

var
a:array[1..1000]of integer;
f:text;
i,c,n,k,m,j:integer;
begin
randomize;
writeln('vvedite kolichestvo komponentov faila');
readln(n);
assign(f,'input.txt');
rewrite(f);
for i:=1 to n do
begin
c:=random(100)+1;
write(f,c:4);
end;
close(f);
reset(f);
while not eof(f) do
begin
inc(k);
read(f,a[k]);
end;
close(f);
writeln('dannye');
for i:=1 to k do
write(a[i]:4);
writeln;
for i:=1 to k do
 for j:=1 to trunc(sqrt(a[i] div 2)) do
 if (j*2-1)*(j*2-1)=a[i] then
 begin
 inc(m);
 write(a[i]:4);
 end;
 writeln;
writeln('kol-vo kvadratov=',m);
readln;
end.

Leave a Comment

59 − = 50