ПОМОГИТЕ ПАСКАЛЬ????

0 голосов
26 просмотров

ПОМОГИТЕ ПАСКАЛЬ????


image
image

Информатика (19 баллов) | 26 просмотров
Дан 1 ответ
0 голосов

//PascalABC.Net
//1
var
  a, b, c: real;
begin
  readln(a, b, c);
  writeln(a+b+c - max(a, max(b, c)) - min(a, min(b, c)));
end.

//2
var
  a, b, c: real;
begin
  readln(a, b, c);
  writeln('Наименьшее число: ', min(a, min(b, c)));
  writeln('Наибольшее число: ', max(a, max(b, c)));
end.

(3.8k баллов)