даны 4 числа, найти минимальное, язык паскаль

Question

Информатика

Агриппина

26 сентября, 00:32

даны 4 числа, найти минимальное, язык паскаль

+3

Ответы (1)

Знаете ответ на вопрос?

Никитка · Answer 1

Program gt;

var a, b, c, d, min:integer;

begin

read (a, b, c, d) ;

min:=a;

if (b
if (c
if (d
writeln (min) ;

end.

Если там вещественные числа то в var-е вместо integer напиши rel