Ответы на вопрос:
program picaso; uses crt; var a,b,c,minim: real; procedure min(a,b: real ; var minim: real); begin if a> b then minim: =b else minim: =a; end; begin clrscr; writeln('a'); readln(a); writeln('b'); readln(b); writeln('c'); readln(c); min(a,b,minim); min(minim,c,minim); writeln('min=',minim); readln; end.
Популярно: Информатика
-
Fewfie28.12.2022 07:43
-
pikachu7bitch23.11.2021 15:38
-
запахдружбы04.05.2022 05:34
-
DmitryKind9821.01.2022 08:11
-
angelina2334e35r529.10.2021 12:01
-
anuynilonoca26.11.2020 03:12
-
SabZero5514.03.2023 11:58
-
bulochka22827.02.2020 12:04
-
olya36302.10.2020 16:02
-
Диля22222222209.03.2020 08:18