Ответы на вопрос:
Объяснение:
var i, s:Real;
begin
i:=0;
readln(s);
if s >=0 then begin
i:=sqrt(s)+s*2;
writeln(i:0:2);
end
else begin
writeln('False');
end;
end.
Популярно: Информатика
-
MashaJummy01.12.2020 13:53
-
сел520.03.2021 01:35
-
PolinaCat2921.04.2020 04:50
-
Maria32578414.12.2021 05:40
-
rhxtdf08.09.2022 13:44
-
Sofochka130908.09.2021 07:01
-
violetta188831.10.2021 05:33
-
katysid15514.04.2022 09:55
-
Denis434525.01.2023 02:25
-
nekrasovlesha116.01.2022 11:47