Question

Помогите сделать дз по информатике

Answer 1

Ответ:

Объяснение:

1) A- перед else не нужна ';'

  Б-y:=a+3; правильно будет так (нужно закрыть выражение)

  B) (n<10) взять в скобки и после writeln('Истинна'); (поставить ;)

2)var x,i:Integer;

begin

 readln (x);

 if x>=0 then

   writeln ('Положительное');

 if x<0 then

   writeln ('Отрицательное');

end.

3)

var x:Integer;

begin

 readln (x);

 if (x>=0) and (x mod 2=0) then

   writeln ('Да')

 else

   writeln ('Нет');

end.