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

Галека

1 августа, 05:04

+5

Ответы (2)

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

Марюта · Answer 1

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

readln (a, b, c, d) ;

Витяня · Answer 2

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