Предмет: Информатика,
автор: lzgrl666
Дано 4 числа. Среди чисел есть отрицательные?
Помогите решить эту задачу в паскаль через if-then-else
Ответы
Автор ответа:
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?
Похожие вопросы
Предмет: Русский язык,
автор: NaStYaA0987
Предмет: Русский язык,
автор: Big30
Предмет: Окружающий мир,
автор: dasa32
Предмет: Українська література,
автор: akhimchenko