Напишите программку [на Pascal], которая вычисляет малое из трёх введённых чисел.

Напишите программу [на Pascal], которая вычисляет малое из трёх введённых чисел. Используйте функцию.

Задать свой вопрос
2 ответа
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программка не работает, обновите версию!

function Min3(a,b,c:real):=Min(a,Min(b,c));

begin
  var (x,y,z):=ReadReal3('Введите три числа:');
  Writeln('Минимальное: ',Min3(x,y,z))
end.

Пример
Введите три числа: 3.18 -2 5.7
Малое: -2
function min(x,y:integer):integer;
begin
if xlt;y then min:=x else min:=y;
end;
var a,b,c:integer;
begin
readln(a,b,c);
writeln('min = ',min(min(a,b),c));
end.

Пример:
8 2 5
min = 2
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт