Предмет: Информатика,
автор: 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.
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.
Автор ответа:
0
Спасибо огромное :D
Автор ответа:
0
Пожалуйста
Похожие вопросы
Предмет: Литература,
автор: maksimsavelyev031
Предмет: История,
автор: 2313reg
Предмет: Информатика,
автор: idrisovaadel
Предмет: Химия,
автор: ЛивМир
Предмет: Математика,
автор: smollve