Программа ABCpascal:
Ввести с клавиатуры два числа, если произведение этих чисел положительно, то найти их разность, а иначе найти их деление.

Предыдущий
вопрос Следующий
вопрос

program ABCpascal;
var
a, b, result: integer;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
if (a * b) > 0 then
begin
result := a - b;
writeln('Разность чисел: ', result);
end
else
begin
result := a div b;
writeln('Частное чисел: ', result);
end;
end.

Программа предлагает ввести с клавиатуры два числа, затем проверяет, является ли произведение этих чисел положительным. Если да, то программа находит разность этих чисел и выводит ее на экран, в противном случае программа находит их частное и выводит его на экран.