Дано целое число m>10. Получите целое k, при котором k^2<m.

Question

Дано целое число m>10. Получите целое k, при котором k^2<m.

Comments

Прогу надо писать??? Если да то в Паскале??

---

да, в паскале

Answer 1

Var m, k: integer;
begin
     readln(m);
     for k := round(sqrt(m)) downto 0 do
         if (sqr(k) < m) then writeln(k, '^2 < ', m);
end.

Вот так, на Паскале + блок-схема =)

---