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

Помогите, пожалуйста, написать программу в Pascal.
Напишите функцию выбора меньшего из целых чисел. Используйте ее в программе выбора наименьшего из трех чисел.

  1. Ответ
    Ответ дан petyaGavrikov
    var a,b,c,m:integer;
    function min(x,y:integer):integer;
    begin
    if x<y then min:=x else min:=y;
    end;
    begin
    write('a='); readln(a);
    write('b='); readln(b);
    write('c='); readln(c);
    m:=min(min(a,b),c);
    writeln('min=',m);
    end.

    Пример:
    a=5
    b=3
    c=8
    min=3