Ответы на вопрос:
Program sravnenie;
var a,b,c: real;
begin
readln(a,b);
if a>b then c:=a
else c:=b;
writeln('Наибольшее число:', c);
end.
Program abc;
var a,b,c:real;
begin
Write('Введите первое число:');readln(a);
Write('Введите второе число:');readln(b);
Write('Введите третье число:');readln(c);
if a<0 then a:=sqr(sqr(a)) else a:=sqr(a);
if b<0 then b:=sqr(sqr(b)) else b:=sqr(b);
if c<0 then c:=sqr(sqr(c)) else c:=sqr(c);
Writeln(a);Writeln(b);Writeln(c);
end.
Популярно: Информатика
-
Патич23222.12.2020 09:54
-
BigBOSS228118.01.2022 13:04
-
RaminaMirzaeva19.06.2021 07:36
-
RoseIce17.06.2023 12:31
-
Агааемгов06.12.2020 18:09
-
coolmaVIP09.10.2021 16:13
-
ulyana78308.02.2021 07:21
-
netesa020213.03.2021 11:05
-
Dimasgta711.03.2022 08:20
-
xXDenchykXx108.09.2022 02:26