Даны два действительных числа х и у.найти большее из этих чисел или установить, что числа равны
249
470
Ответы на вопрос:
program ex1;
var x,y: real;
begin
readln(x,y);
if x> y then writeln('x> y and x=',x);
if x< y then writeln('y> x and y=',y)
else writeln('x=y=',x);
end.
Популярно: Информатика
-
JadenGirl01.02.2022 17:41
-
Vladislav55323.04.2021 21:53
-
Shved1127.12.2021 04:46
-
ZnAnIjAbro21.03.2023 12:03
-
zuhraafokinazuhra22.04.2022 03:21
-
Ekaeterina4417.04.2021 06:27
-
vevgrafov01.03.2022 13:13
-
angelina45923.03.2022 17:42
-
alinaisaeva83910.06.2022 10:44
-
volkovaales030805.01.2020 21:12