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

Question

Информатика

Филиппия

14 ноября, 04:56

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

+4

Ответы (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