Есть ответ 👍

Написать программу в паскале с процедуры: наименьшее из трех чисел

264
434
Посмотреть ответы 2

Ответы на вопрос:


Var a,b,c: integer; procedure min(a,b,c: integer); var min: integer; begin min: =a; if b < min then min: =b; if c < min  then min: =c; writeln(min); end; begin readln(a,b,c); min(a,b,c); end.

Решение смотри во вложении.

Популярно: Информатика