profile
Опубликовано 5 лет назад по предмету Информатика от rud1k777

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

  1. Ответ
    Ответ дан igorvoloc

    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.

Самые новые вопросы