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