Запишите на языке Паскаль: переменной a будет присвоено значение переменной c, переменной b – значение c разделить на 2 и прибавить 1, а переменной c – значение переменной

86 - 8 = 78 любят компьютерные игры

78 - 62 = 16 человек любят только квесты

78 - 54 = 24 человек любит только симуляторы

54 - 16 = 38 человек любят и квесты и симуляторы.

ответ. 38 человек любят и квесты и симуляторы.

круги эйлера: нарисуй прямоугольник внутри него два пересекающих друг друга круга. внутри прямоугольника поставь цифру 8 это те кто не любит комп. игры.

внутри одного круга напиши с и 62, это те кто любит симуляторы их 62 чел.

внутри другого круга напиши к и 54, это те кто любит квесты их 54 чел.

з.ы. у меня просто не хочет прикреплять рисунок.

var

d1,d2,d3,d4: string;

begin

randomize;

readln(d1);

readln(d2);

readln(d3);

readln(d4);

case random(4) of

0: writeln(d1,d2,d3);

1: writeln(d1,d2,d4);

2: writeln(d2,d3,d4);

3: writeln(d1,d3,d4);

end;

end.

1) найти убыль как к-во * 12%

2) найти прирост как к-во * 20%

3) к-во = к-во-убыль+прирост

выполнить 8 раз

var

x,a,b: real;

i: integer;

begin

x: =100000;

for i: =1 to 8 do

begin

a: =x*0.12;

b: =x*0.20;

x: =x+b-a;

end;

writeln(x);

end.

1)

s : = 0;

for i : = 1 to k do

begin

  if i mod 2 < > 0 then

      s: = s + i;

end;

2)

for i : = 5 to 55 do

begin

  if i mod 2 < > 0 then

      writeln(i);

end;

3)

s : = 1;

for i : = n to m do

begin

  s: = s * i;

end;

4)

s : = 0;

for i : = 10 to 15 do

begin

        s: = s + i;

end;

обрамления там везде одинаковые