Дата публикации:
Помощь с задачей по информатике. Помогите составить программу в
Помощь с задачей по информатике. Помогите составить программу в Pascal:Введите 2 числа. Определите являются ли эти числа положительными, отрицательными или числа имеют разные знаки
Приведенная ниже программа на Pascal позволяет определить, являются ли два введенных числа положительными, отрицательными или имеют разные знаки:
program CheckNumbers;
var
num1, num2: integer;
begin
writeln('Введите первое число:');
readln(num1);
writeln('Введите второе число:');
readln(num2);
if (num1 > 0) and (num2 > 0) then
writeln('Оба числа положительные')
else if (num1 < 0) and (num2 < 0) then
writeln('Оба числа отрицательные')
else
writeln('Числа имеют разные знаки');
end.
Программа запрашивает у пользователя два числа и затем проверяет их знаки с помощью условных операторов if
и else
. Если оба числа положительные, выводится сообщение "Оба числа положительные". Если оба числа отрицательные, выводится сообщение "Оба числа отрицательные". В противном случае, выводится сообщение "Числа имеют разные знаки".