Найти алгоритм минимума из 3х целых чисел на паскале+ составить блок -схему.
ПОЖАЛУЙСТА,ХОТЯ БЫ НА ПАСКАЛЕ СОСТАВЬТЕ!

1

Ответы и объяснения

2013-12-05T13:54:55+00:00
Var
  a, b, c, min : integer;
begin
  read (a, b, c);
  if (a <= b) and (a <= c) then min := a
  else if (b <= a) and (b <= c) then min := b
  else min := c;
  write (min);
end.