var i,n,d:integer; a:array[1..100] of integer; begin readln(n); for i:=1 to n do readln(a[i}); d:=0; for i:=1 to n do if sqrt(a[i}) = trunc(sqrt(a[i])

Question

var i,n,d:integer;
a:array[1..100] of integer;
begin
readln(n);
for i:=1 to n do readln(a[i});
d:=0;
for i:=1 to n do
if sqrt(a[i}) = trunc(sqrt(a[i])) then d:=d+1;
writeln(d);
readln
end.
TỪ BÀI TRÊN EM HÃY VIẾT PHƯƠNG TRÌNH LÀM VIỆC VỚI TỆP

lanminhngoc · Answer

var f,g:text;

i,n,d:integer;

a:array[1..100] of integer;

begin

Assign(f,’BAITAP.inp’); reset(f);

Assign(g,’BAITAP.out’); rewrite(g);

readln(f,n);

for i:=1 to n do readln(a[i]);

d:=0;

for i:=1 to n do

if sqrt(a[i]) = trunc(sqrt(a[i])) then d:=d+1;

writeln(g,d);

close(f); close(g);

end.

Bình luận

var i,n,d:integer; a:array[1..100] of integer; begin readln(n); for i:=1 to n do readln(a[i}); d:=0; for i:=1 to n do if sqrt(a[i}) = trunc(sqrt(a[i])

0 bình luận về “var i,n,d:integer; a:array[1..100] of integer; begin readln(n); for i:=1 to n do readln(a[i}); d:=0; for i:=1 to n do if sqrt(a[i}) = trunc(sqrt(a[i])”

Viết một bình luận Hủy