КР

№1

А) А=80

Б)

x:=strtoint(edit1.text);

y:=strtoint(edit2.text);

z:=strtoint(edit3.text);

if x>y+z

then begin

if x>0

then a:=x - y - z

else a:=x+y+z ;

a:= -a;

end;

else begin

if x<y

then a:=-x*y-z

else a:=x*y+z;

a:=a*2;

end;

edit4.text:=inttostr(a);

№2

А)

k:=25

p:=trunk(k/4);

case p of

2:  d:=sqr(k);

4:  d:=5*k;

6:  d:=round(k/2)

Else d:=k;

End

Б)

Функция trunk означает отсечение дробной части, поэтому р=6

d=6\2=3

№3

Шаг 1

Р=1*(2*1-1)=1

I=2

2>3

Шаг 2

Р=1(2*2-1)=3

I=I=+1=3

Шаг 3

Р=3(2*3-1)=15

I=3+1=4

4>3

б) Тело цикла выполняется 3 раза.

№4

А)

Берем элементы с 1 по 5

5

2

7

4

8

Условие d[i]<8 означает: номер элемента меньше 8.

S=0+1+2+3+4+5=15

Б)

4

8

4

12

8

9

–9

10 0 10 0 10 0 10

№5

А)

0	6	12	–9
1	2	–3	–1
4	0	8	0

К=5+1+1+1+1+1+1+1+1+1=14

Б)

1	2
4	0

Р=1*2+1=3

В)