Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  4524
Language: PASCAL
Code:
program krasava;
const n = 50;
var serii: array[1..n] of integer; 
i,andrei : integer;
begin
randomize;
for i :=1 to n do
begin
serii[i]:=random(50);write(serii[i]:4)
end;
andrei := 0;
for serii := 1 to n do
if (trunc(sqrt(serii[i]))) = sqrt(serii[i]) then
begin
andrei:=andrei+1;
writeln(serii[i],' k-vo ', andrei) 
end;
end;
readln
end.
Comments: