дано целое число m>10. Получите целое k, при котором k^2<m.
Ответы на вопрос
Ответил HRAshton
0
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.
Вот так, на Паскале + блок-схема =)
begin
readln(m);
for k := round(sqrt(m)) downto 0 do
if (sqr(k) < m) then writeln(k, '^2 < ', m);
end.
Вот так, на Паскале + блок-схема =)
Приложения:
Новые вопросы