Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Составьте на Паскале программу определения минимума из трёх чисел с использованием логических операций. Программа должна иметь дружественный интерфейс.

Ответ оставил Гость

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.