Задачи по Pascal. Совпадают ли знаки числа ?

Автор cyber На чтение 2 мин.

Условие задачи : Выводятся два случайных числа . Определить совпадают ли их знаки.

Сложность : легкая .

Для решения этой задачи нам понадобиться две переменные под числа , которые мы будем сравнивать, также понадобиться процедура randomize , функция random и оператор условия if.

Для начала давайте объявим две переменные, и присвоим им какое-то случайное значение :

uses crt ;
var 
    num1 , num2 : integer ;
begin
randomize ; {включаем генератор случайных чисел}

num1 := -10 + random(20) ;
num2 := -10 + random(20) ;
 
end.

Теперь у нас есть два числа и мы можем писать для них условие . Само условие будет не трудным, нам надо определить какие это числа : отрицательные или положительные , пишем :

if (num1 < 0) and (num2 < 0) then {если оба числа меньше 0, то выводим ...}
     writeln('Знаки совпадают')
else 
     if (num1 >= 0) and (num2 >= 0) then
             writeln('Знаки совпадают')
     else    writeln('Знаки не совпадают') ;

Для наглядности желательно вывести эти два числа перед условием .

write('Числа : ', num1 , ' и ' , num2, ' их : ');

Задача готова . Весь код программы :

uses crt ;
var 
    num1 , num2 : integer ;
begin
clrscr;
randomize ; {включаем генератор случайных чисел}

num1 := -10 + random(20) ;
num2 := -10 + random(20) ;

write('Числа : ', num1 , ' и ' , num2, ' их : ');

if (num1 < 0) and (num2 < 0) then {если оба числа меньше 0, то выводим ...}
     writeln('Знаки совпадают')
else 
     if (num1 >= 0) and (num2 >= 0) then
             writeln('Знаки совпадают')
     else    writeln('Знаки не совпадают') ;

readln; {чтобы программы не закрывалась} 
end.