Question

Умоляю помогите с информатикой! 1. Необходимо найти и исправить ошибку в условномоператоре:А) if x 5) and n<10 then writeln('истина')Б) if x 5) and n<10 then writeln('истина')2. Напишите программу, которая для заданного числа Аопределяет, является оно положительным илиотрицательным (для данной задачи 0 будет положительнымчислом).3.Напишите программу, которая выводит «Да», есливведенное число положительное и четное. И «Нет», влюбом другом случае.

Answer 1

Ответ:

1.б

является оно положительным или отрицательным“ — а если число равно нулю?

Обычно для этого используют функцию sign

3.ПаскальАВС.NET

Answer 2

Давайте рассмотрим ваши задачи по порядку:

1. Найдем и исправим ошибки в условных операторах:

А) Ошибка в условии "if x 5" и использование символа "<" вместо ">", также отсутствует "then". Правильный вариант:

pascalCopy code
if (x > 5) and (n < 10) then 
  writeln('истина');

Б) Ошибка в условии "if x 5" и использование символа "<" вместо ">", также отсутствует "then". Правильный вариант:

pascalCopy code
if (x > 5) and (n < 10) then 
  writeln('истина');

2. Программа, которая определяет, является ли заданное число положительным или отрицательным (0 считается положительным числом):

pascalCopy code
program CheckSign;
var
  A: Integer;
begin
  write('Введите число A: ');
  readln(A);

  if A >= 0 then
    writeln('Положительное число')
  else
    writeln('Отрицательное число');
end.

3. Программа, которая выводит "Да", если введенное число положительное и четное, и "Нет" во всех остальных случаях:

pascalCopy code
program CheckEvenPositive;
var
  num: Integer;
begin
  write('Введите число: ');
  readln(num);

  if (num > 0) and (num mod 2 = 0) then
    writeln('Да')
  else
    writeln('Нет');
end.

Скопируйте код каждой программы в среду разработки Pascal (например, Free Pascal) и выполните их по очереди, следуя инструкциям.