Составить программу которая вводит с клавиатуры четыре целых числа a,b,c,d (каждое число - отдельной командой "ввод") и выводит на экране минимальное среди них.Ничего кроме этого программа выводить не должна. При использовании системы Free Pascal для представления целых чисел используйте тип LongInt. Надо сделать в Pascal

2

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

  • Tlalok
  • почетный грамотей
2013-03-11T23:43:23+04:00

var

  a, b, c, d, t1, t2:longint;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  write('c = '); readln(c);

  write('d = '); readln(d);

  if a < b then

    t1 := a

  else

    t1 := b;

  if c < d then

    t2 := c

  else

    t2 := d;

  if t1 < t2 then

    writeln('Min = ', t1)

 else

    writeln('Min = ', t2);

  readln;

end.

 

2013-03-12T00:07:15+04:00

var

a,b,c,d,max:longint;

begin

  read(a); read(b); read(c); read(d);

  min:=a;

  if min>b then min:=b;

  if min>c then min:=c;

  if min>d then min:=d;

  writeln(min);

end.

 

Программа работает, проверено мной.)