Ответы на вопрос:
Объяснение:
Я могу ответить на этот во только поставь лучший ответ из 5 звёзд данных очень нужна оценка зделай мой ответ лучший.
1)
program m; uses crt; var i,a,b,c,min: integer; beginclrscr; readln(a,b,c);
if a< min then min: =a; if b< min then min: =b; if c< min then min: =c; writeln(' ',min); readkey; end.
2)
program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln(a); min: =a; for i: =1 to 2 do
beginreadln(a); if a< min then min: =a; end; writeln(min);
readkey;
end.
3)
program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln(a,b,c); if a< b then b: =a; if c< a then b: =c; writeln(b); readkey; end.
Популярно: Информатика
-
Dasha164893819008.08.2022 02:51
-
keram1it22826.08.2022 10:03
-
Даниссиммо112.01.2020 22:04
-
Paketo1804.04.2020 11:18
-
samoilenkoludmi26.12.2020 12:15
-
EvgeshaKhomenco200502.07.2020 15:15
-
ilslim20.06.2021 02:01
-
Alsari24.06.2022 21:22
-
vova0109200517.11.2020 19:18
-
3422425309.10.2022 03:25