• Напишите программу которая выводит на экран :min (a,b)
    min-минимальное значение
    По теме программы паскаль точнее турбо паскаль

Ответы 1

  • Program programma;Uses crt;var a,b,min: real;Begin clrscr;      write('Введите a = ');      readln(a);      write('Введите b = ');      readln(b);       if a>b then       min:=b       else           begin           if a<b then           min:=a;           if a=b then           write('a и b равны');           end;       write('Min = ', min);           readln;End.     
    • Автор:

      brooklyn
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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