ДАЮ 100 БАЛЛОВ! ИНФОРМАТИКА! ОЧЕНЬ СРОЧНО НУЖНА ПОМОЩЬ!
Заданы числа а и b. Написать программу, которая определит, эти числа одного или разных знаков (положительные/отрицательные)
Задание нужно решить в программе Паскаль!!!
Заданы числа а и b. Написать программу, которая определит, эти числа одного или разных знаков (положительные/отрицательные)
Задание нужно решить в программе Паскаль!!!
More Questions From This User See All
Answers & Comments
Ответ:
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.