Program naim4;

var a, b, c, d, min:real; begin;

writeln ('введите 4 числа') ;

readln;

min:=a;

if b < min then min:=b;

if c < min then min:=c;

if d < min then min:=d;

writeln ('минимальное ', min) ;

readln;

end.

нужно найти минимальное число из 4 данных. Что не так?

Question

Касиния

4 мая, 09:13

+1

Ответы (2)

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

Яна · Answer 1

В конце не writeln (min) - это ввод инфы а readln (min)

Вербния · Answer 2

4 строка, там нужно

readln (a, b, c, d) ;