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

Question

Информатика

Андря

14 декабря, 15:45

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

+5

Ответы (2)

Знаешь ответ?

Силан · Answer 1

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.

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

Федя · Answer 2

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.