Question

viet chuong trinh nhap 1 day so sau do in ra man hinh cac so chinh phuong

Answer 1

Uses crt;

Var i,n,x:integer;

      s:array[1..10000] of integer;

Begin

clrscr;

Write('Nhap do dai cua day: ');readln(n);

for i:= 1 to n do

  begin

  write('So thu ',i,' = ');

  readln(s[i]);

  End;

Writeln('Cac so chinh phuong co trong day:');

for i:= 1 to n do 

  Begin

  x:=trunc(sqrt(s[i]));

  if sqr(x) = s[i] then write(s[i],'  ');

  end;

Readln;

End.