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

NeGaTiV4iK1233 NeGaTiV4iK1233    1   31.05.2019 02:10    0

Ответы
elvira1234123 elvira1234123  01.07.2020 12:04
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика