Ответы на вопрос:
Uses crt; var n1, n2, min: integer; begin clrscr; write (' n1 = '); readln (n1); write (' n2 = '); readln (n2); if (n1< n2) then min: =n1 else min: =n2; writeln; writeln(' min = ', min); readln; end.
Популярно: Информатика
-
asd000fgh00003.01.2023 11:41
-
kopustich122.09.2020 20:58
-
bryazgin98p06isp03.09.2022 02:52
-
Киря000129.03.2020 17:21
-
левецинкking20.07.2022 05:04
-
lakomkin200721.10.2021 14:37
-
мандаринылюблю20.05.2022 01:48
-
liza2005yakovl11.02.2021 01:22
-
pro100Abyroi11.06.2021 05:09
-
milkiweika12303.10.2021 20:04