Составить программу которая вводит с клавиатуры четыре целых числа a,b,c,d (каждое число - отдельной командой "ввод") и выводит на экране минимальное среди них.Ничего кроме этого программа выводить не должна. При использовании системы Free Pascal для представления целых чисел используйте тип LongInt. Надо сделать в Pascal
Answers & Comments
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.
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.
Программа работает, проверено мной.)