petyaGavrikov

Verified answer

Var i,k:integer;
begin
k:=0;
for i:=10 downto 1 do
 if (sqrt(i)>=2)and(sqrt(i)<=3) then k:=k+1;
writeln('k = ',k);
end.

Результат:
k = 6