Ответы на вопрос:
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.вот так, на паскале + блок-схема =)
Популярно: Информатика
-
Ruslan032004.01.2021 06:25
-
дарья3ви05.08.2021 21:30
-
redridinghood128.12.2021 04:37
-
бjulfyн01.01.2021 01:09
-
Коцюрбей13.02.2020 23:07
-
sasha0702200504.12.2020 12:27
-
kotena55525.02.2020 18:02
-
aise0908.04.2020 02:08
-
Mika12312313.05.2022 23:49
-
ZloYDedyskA24.02.2023 20:45