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

Ответы 3

  • Спасибо огромное :D
    • Автор:

      ginger64
    • 6 лет назад
    • 0
  • Пожалуйста
  • // PascalABC.Net 3.0, сборка 1052var  a,b,c:integer;begin  Writeln('Введите три целых числа через пробел: ');  Read(a,b,c);  Writeln('Минимальное из чисел равно ',Min(c,Min(a,b)))end.{ Borland Pascal 7.01 }uses Crt;var  a,b,c,m:integer;begin  ClrScr;  Writeln('Введите три целых числа через пробел: ');  Read(a,b,c);  if a<b then m:=a else m:=b;  if c<m then m:=c;  Writeln('Минимальное из чисел равно ',m);  Readlnend.
  • Добавить свой ответ

Войти через Google

или

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

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

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