Предмет: Информатика, автор: ukraine1050

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

Ответы

Автор ответа: Аноним
0
// 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<b then m:=a else m:=b;
  if c<m then m:=c;
  Writeln('Минимальное из чисел равно ',m);
  Readln
end.
Автор ответа: ukraine1050
0
Спасибо огромное :D
Автор ответа: Аноним
0
Пожалуйста
Похожие вопросы