Question

Выбор минимального из 3 введенных целых чисел

Answer 1

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var a,b,c,min:real;
  Write('Введите три числа: '); Read(a,b,c);
  if a<b then min:=a else min:=b;
  if c<min then min:=c;
  Writeln('min=',min)
end.

Тестовое решение:
Введите три числа: 4.5 -3 0
min=-3

Answer 2

var
a,b,c,min:integer;
begin
write('Введите значение A=');read(a);
write('Введите значение B=');read(b);
write('Введите значение C=');read(c);
if (a<b) and (a<c) then
min:=a;
if (b<a) and (b<c) then
min:=b;
if (c<a) and (c<b) then
min:=c;
write('Минимальное число=',min);
end.

//////////////////
Входные данные:
1
2
3
/////////////////////
Выходные данные:

Минимальное число=1