4.Задача «Список квадратов». По данному целому числу N распечатайте все квадраты натуральных чисел, не превосходящие N, в порядке убывание.
185
323
Ответы на вопрос:
var x,y: real;
begin
readln(x);
if x< 0 then writeln('oshibka') else begin y: =sqrt(x); writeln('y=',y); end;
end.
Популярно: Информатика
-
Kpocav4ik66612.07.2022 02:19
-
kakhaeva0216.07.2020 06:50
-
Ксюша11111111111111308.01.2020 12:26
-
Bonyashechka07.11.2020 01:09
-
elenaklass111.05.2021 05:50
-
98426352435384819.07.2022 11:35
-
rafael2003ggwp22.05.2020 12:13
-
Arturkim0425.10.2022 08:14
-
Zod214111.01.2021 16:29
-
melomicsmel05.04.2023 12:54