1. Даны два числа А и В. Запишите логическое выражение по правилам языка Паскаль:
«Число А положительное, а число В отрицательное»
2. Какая ошибка допущена в записи оператора. Запишите правильный ответ.
IF X>10) and (y<0) then z:=x+1
else z := z := x+2*y ;

(А>=0) and (B<0)

Ноль ведь положительный?

if (X>10) and (y<0) then

z:=x+1

else z:=x+2*y

Объяснение:

1) (A>0) and (B<0)

2) IF (X>10) and (y<0) then z:=x+1

  else z:=x+2*y;

Объяснение:

type adrcel=^element; element=record info: integer; next: adrcel; end; var start,last,new_el: adrcel; i: integer;

procedure del2(var start: adrcel);

var

p: adrcel;

begin

p: =start^.next;

if p< > nil then start^.next: =p^.next

end;

begin start: =nil; last: =nil; new_el: =nil; repeat new(new_el); write('info='); readln(new_el^.info);

new_el^.next: =nil; if start=nil thenstart: =new_el; else begin

last: =start;

while last^.next< > nil do last: =last^.next; last^.next: =new_el; end; write('продолжить? (1-да/0-нет): '); readln(i); until i=0; writeln('удалим 2-й элемент');

del2(start);

new_el: =start; while new_el< > nil do begin write(new_el^.info: 4); new_el: =new_el^.next; end; readln; end.

3*3: (3*3)=1

(3*3-3): 3=2

3*3-(3+3)=3

(3*3+3): 3=4

(3+3): 3+3=5

(3+3-3)+3=6

(3: 3+3)+3=7

3*3-(3: 3)=8

3*3-(3-3)=9

3*3+3: 3=10