Ответы на вопрос:
program p1; vara1, a2, a3, max: integer; beginwriteln ('vvedite 3 chisla cherez probel i nazhmite probel'); readln (a1, a2, a3);
if a1> =a2 thenmax: =a1elsemax: =a2; if a3> max thenmax: =a3;
writeln('maximalnoe chislo iz nih: ', max); readlnend.
Популярно: Информатика
-
OlisiyaFox23.10.2021 16:35
-
амаикем14.05.2020 03:55
-
11302002102.07.2021 21:11
-
niaz16736115.04.2021 11:08
-
mgurbo02.02.2021 21:13
-
matveyking1234503.09.2022 23:21
-
dariababaeva114.01.2022 18:44
-
Нилллл21.04.2023 03:10
-
petia200615.02.2021 20:56
-
jokeaaaaff06.03.2023 04:23