1. найдите значение y после исполнения серии команд: а) x: =0; y: =1; z: =2; y: =x-1; z: =y; x: =y; y: =x+y+z; б) y: ='н'; y: ='ба'+y; y: ='ка'+y; 2. каково было значение величины x, если после исполнения серии команд получилось y=5? z: =x*4; y: =24-z; y: =5+y; 3. при каком начальном значении переменной после исполнения серии команд получится указанный ответ: y: ='b'+y+y; y: =y+'le'; y: =y+'an'; ответ: y='boolean' 4. чему равны значения переменных х и у после выполнения операторов x: =6; y: =10; x: =y; y: =x; ? 5. вычислить значение выражения: 3*7 div 2 mod 7 – 6 6. вычислить при a=true и b=false: (a or b) and not a

1а) -3; 1б) кабан 2) 6; 3) у=о; 4)х=10, у=10; 
5) -3; 6) false

Цифры в номере по условию не зависят от буквы, поэтому если возможное количество букв n (n букв в алфавите) и наборов из 3 цифр, удовлетворяющих условию m, то всего возможно n*m различных номеров.
Посчитаем m.
Для начала посчитаем количество номеров, содержащих ровно одну цифру 7. их 3 * 9 * 9 = 243 (3 возможных позиции расположения этой цифры, а каждая из оставшихся цифр - одна из 9 (всего цифр 10, исключаем цифру 7). Среди них не может быть чисел, содержащих более 2 нулей, поэтому все эти числа подходят.
Теперь посчитаем количество наборов из 3 цифр, не содержащих ни одной 7. Их 9 * 9 * 9 = 729 (всего возможно 9 цифр на каждой позиции). Но среди них есть ровно один набор, содержащий более 2 нулей: 000. Отнимем его: 729 - 1 = 728
m = 728 + 243 = 971
Всего номеров 971 * n, где n - количество букв в алфавите

1.
const n=10;
var a:array[1..n] of integer;
i,max,min:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:4);
end;
writeln;
max:=a[1]; min:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('max = ',max,' min = ',min);
writeln(max,'-',min,' = ',max-min);
end.

Пример:
23 23 46 28 38 21 46 5 19 27
max = 46 min = 5
46-5 = 41

2.
const n=10;
var a:array[1..n] of integer;
i:integer; 
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 a[i]:=random(21);
 write(a[i]:3);
 end;
writeln;
writeln('Числа >5:');
for i:=1 to n do
 if a[i]>5 then write(a[i]:3);
end.

Пример:
Массив A:
 7 0 12 5 1 1 13 15 13 20
Числа >5:
 7 12 13 15 13 20

3.
const n=10; 
var a:array[1..n] of integer;
i:integer; p:real;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 a[i]:=random(11);
 write(a[i]:3);
 end;
writeln;
p:=1;
for i:=1 to n do
 if a[i]<>0 then p:=p*a[i];
write('p = ',p);
end.

Пример:
Массив A:
 5 7 1 6 0 0 4 1 5 0
p = 4200