denias
Опубликовано 7 лет назад по предмету Информатика от denias


составьте не менее трех вариантов програмы определния наименьшего из трех данных чисел

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

    1)

    program m;uses crt;var i,a,b,c,min:integer;beginclrscr;readln(a,b,c);

    if a<min then min:=a;if b<min then min:=b;if c<min then min:=c;writeln('        ',min);readkey;end.

     

    2)

    program m;uses crt;var i,a,b,c,min,d:integer;beginclrscr;readln(a);min:=a;for i:=1 to 2 do            

                                        beginreadln(a);if a<min then min:=a;                                    end;writeln(min);

    readkey;

    end.

     

    3)

    program m;uses crt;var i,a,b,c,min,d:integer;beginclrscr;readln(a,b,c);if a<b then b:=a;if c<a then b:=c;writeln(b);readkey;end.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц