даны 4 вещественных числа,выведите на экран те из них,значение которых отрицательны.срочно нужно!!!
var
a, b, c, d : real;
begin
read (a, b, c, d);
if a < 0 then writeln (a);
if b < 0 then writeln (b);
if c < 0 then writeln (c);
if d < 0 then writeln (d);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
