Question

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

Answer 1

Ответ:

Объяснение:

Во вложении, программа № 2 верна, только где if> =0, после > пробел не нужно ставить. На фото я проверила прогу

Answer 2

Из представленных вами вариантов программы только второй является корректным кодом на языке программирования Pascal. Вот правильная версия программы:

pascalCopy code
program zadaca;

var
  a: integer;

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

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

  writeln(a);
  readln;
end.

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