Question

Дано целое число. Если оно является положительным, то прибавить к нему 1 ; если отрицательным, то вычесть из него 6; если нулевым, то заменить его на 15. Вывести полученное число. 1)program zadaca;varbeginwriteln('Введи число a');readln(a);if a > =0 thenif a=0 then a:=15 else a:=a+1else a:=a-6;writeln(a);readln;end.2)program zadaca;vara: integer;beginwriteln('Введи число a');readln(a);if a > =0 thenif a=0 then a:=15 else a:=a+1else a:=a-6;end.3)program zadaca;vara: integer;beginwriteln('Введи число a');readln(a);if a > =0 thenif a=0 then a:=15 else a:=a+1else a:=a-6;writeln(a);readln;end.

Answer 1

Ответ:

3

Объяснение:

в 1 варианте остутствует объявление переменной a ( блок var пустой )

во 2 варианте результат попросту не выводят (нет writeln(a) )

Answer 2

Из предоставленных вами вариантов программы правильным является первый вариант. Он содержит корректные операторы и структуру для выполнения описанных в задаче условий. Второй и третий варианты имеют некоторые ошибки в коде. Вот исправленный код первого варианта:

pascalCopy code
program zadaca;
var
  a: integer;

begin
  writeln('Введи число a');
  readln(a);

  if a >= 0 then
    if a = 0 then
      a := 15
    else
      a := a + 1
  else
    a := a - 6;

  writeln(a);
  readln;
end.

В этом коде:

• Вы правильно объявили переменную a.
• Правильно использовали условные операторы if, else.
• Применили операции прибавления и вычитания в соответствии с условиями задачи.

Таким образом, данный код будет корректно выполнять задачу и выводить ожидаемый результат.