Предмет: Информатика, автор: lzgrl666

Дано 4 числа. Среди чисел есть отрицательные?
Помогите решить эту задачу в паскаль через if-then-else

Ответы

Автор ответа: restIess
1

var

a,b,c,d : real;

haveNegative : boolean;

begin

haveNegative := false;

readln(a,b,c,d);

if a < 0 then

   haveNegative := true;

if b < 0 then

   haveNegative := true;

if c < 0 then

   haveNegative := true;

if d < 0 then

   haveNegative := true;

if haveNegative then

   writeln('Cреди данных чисел есть отрицательное!')

else

   writeln('Среди данных чисел отрицательного нет!');

end.


lzgrl666: что значит negative?
restIess: это имя переменной...
lzgrl666: просто мы такого в школе не использовали
restIess: Ну назови ее иначе, буквой просто какой-нибудь)
Похожие вопросы
Предмет: Окружающий мир, автор: dasa32