Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

// PascalABC.Net 3.0, сборка 1052
var
  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  if c  Writeln(Минимальное из чисел равно ,m);
  Readln
end.

Оцени ответ