Задать вопрос Регистрация
Помочь другим

  • Составьте программу в паскале,в которой нужно найти наименьшее из двух чисел

Ответы 2

  • Program f1;

    var a,b,max, min:real;

    begin 

    writeln ('vvedine chisla');

    readln (a,b);

    if (a>b) then (a:=max) else a:=min;

    writeln ('max=',max , 'min=',min);

    readln;

    end.

    • Автор:

      meyers
    • 6 лет назад
    • 0

  • Program chislo;

    var a,b,min:real;

    begin 

    writeln ('vvedine chisla a and b');

    readln (a,b);

    if (a>b) then min:=b ; else min:=a

    writeln ( 'min=',min);

    readln;

    end.

     

    В верхнем решении находим max который неуказан в задании  , поэтому это лишнее !

    • Автор:

      bugsythm5
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years