Вариант 2. 1. Найти значение следующей переменной:
A:= 23 mod 12 * 5-30;
A. 10
B. -6
C. -30
D. 25

2. Найти значение переменной:
B:= 56 div 3 mod 5 + 2;
A. 15
B. 5
C. 7
D. 27

3. Найти значение переменной:
C := (4+10)*5 div 8 * 2;

4. Найти значение переменной:
D:= 8 * 4 div 3 * 6.

5. Найти значение переменной:
E:= 9 + 9 mod 5 – 27 div 5.

Вариант 2.
6. Чему равны значения переменных после выполнения
последовательности действий:
a:=15 div (27 mod 8);
b:=39 mod a*2 – 30 mod 7*3;
c:= 6 * 5 div 6 div 2;
d:= 6 * 5 div (6 div 2);

а) ?1*.*o?1son.ccom - не подходит, так как ? определяет 1 символ, после которого (по условию) должна быть единица, а у нас символ 's'.no1s.doc - не подходит, так как ? определяет 1 символ, после которого (по условию) должна быть единица, а у нас символ 'o'.svno1.ccod - не подходит, так как ? определяет 1 символ, после которого (по условию) должна быть единица, а у нас символ 'v'.f123.rom - подходитб) *1*.?o*1son.ccom - не подходит, так как * определяет группу символов, после которой будет единица, а у нас она вначале.no1s.doc - подходитsvno1.ccod - не подходит, так как * определяет группу символов, а по условию после единицы будет какая-то запись.f123.rom - подходитв) *1?.?o*1son.ccom - не подходит, так как * определяет группу символов, после которой будет единица, а у нас она вначале.no1s.doc - подходитsvno1.ccod - не подходит, так как ? определяет 1 символ,  после которого будет символ 'o', а у нас там два символа 'c' и 'c'f123.rom - не подходит, так как ? определяет 1 символ, а у нас после него '2' и '3'г) ?1?.*o*1son.ccom - не подходит, так как ? определяет 1 символ, после которого будет единица, а у нас она вначале.no1s.doc - не подходит, так как ? определяет 1 символ, после которого будет единица, а у нас там два символа 'n' и 'o'svno1.ccod - не подходит, так как ? определяет 1 символ, после которого будет единица, а у нас там 4 символа 's', 'v', 'n', 'o'f123.rom - не подходит, так как ? определяет 1 символ, а у нас после единицы там 2 символа '2', '3'ответ

б

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

var

 a,b,c: integer;

 x,d: real;

begin

 repeat

   write('Введите коэффициент a (a<>0): ');

   readln(a);

 until a<>0;

 write('Введите коэффициент b: ');

 readln(b);

 write('Введите коэффициент c: ');

 readln(c);

 d:=b*b-4*a*c;

 writeln('Решение уравнения:');

 if d=0 then

   writeln('Корень один: х = ',-b/2/a) else

 if d<0 then

   writeln('Корней на множестве действительных чисел нет') else  

 begin

   writeln('Корней два:');

   writeln('1-й корень: x1 = ',(-b-sqrt(d))/2/a);

   writeln('2-й корень: x1 = ',(-b+sqrt(d))/2/a);

 end;

 readln;

end.