Question

ДАЮ 100 БАЛЛОВ! ИНФОРМАТИКА! ОЧЕНЬ СРОЧНО НУЖНА ПОМОЩЬ!


Заданы числа а и b. Написать программу, которая определит, эти числа одного или разных знаков (положительные/отрицательные)

Задание нужно решить в программе Паскаль!!! ​

Answer 1

Ответ:

begin

var a:= ReadInteger;

var b:= ReadInteger;

begin

if a=0 then

Println ('Число а равен нулю');

if b=0 then

Println ('Число b равен нулю');

end;

begin

if a>0 then

Println ('Число а положительное');

if a<0 then

Println('Число а отрицательное');

end;

begin

if b>0 then

Println ('Число b положительное');

if b<0 then

Println('Число b отрицательное')

end;

end.