Ответы на вопрос:
Program n_1; var n, k: integer; begin writeln; write(' n = '); readln(n); k : = 1; repeat k: =k+1; ; until k * k > n; writeln; writeln('ответ: ', k); end.
Популярно: Информатика
-
F228o228X18.03.2023 05:57
-
LopsterId123654315.03.2020 07:01
-
pushkinaksenya08.02.2020 16:05
-
Гуманитарий77717.01.2021 00:26
-
Nasti1217.03.2020 12:36
-
5Августина504.01.2021 17:38
-
камила90520.04.2020 01:10
-
c1Darkness1c05.05.2023 21:25
-
kategarkysha19.04.2022 15:58
-
lisa100308.04.2022 11:12