Составте программу нахождения максимального из четырёх чисел a,b,c,d. пример ввода: 2 5 7 1 пример вывода: большее из чисел равно 7
199
266
Ответы на вопрос:
Uses crt; var a,b,c,d: integer; begin writeln('введи числа: '); read(a,b,c,d); writeln; write('наибольшее из введенных чисел: '); if a< b then a: =b; if c< d then c: =d; if a> c then write(a) else write(c); end.
P.s. и лучший ответ не помешает. var a, b, c, i: integer; begin read (a,b); c: =0; for i: =1 to b do c: =c+a; write (c,' '); end.
Популярно: Информатика
-
Семма010629.06.2020 19:04
-
agentWINX27.09.2022 12:13
-
Astr4lis30.11.2021 03:05
-
oe5d29.01.2020 05:16
-
sos13014.05.2020 01:37
-
manzer9506.06.2022 04:56
-
denisgulinskii13.12.2020 16:09
-
anastasiabobilevich06.06.2020 12:26
-
10ok09.02.2021 01:53
-
Meryem9804.10.2022 06:36