Скласти лінійний блок схеми S=(a+b)/2×h в ворді

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

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

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

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

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

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

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

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

З.Ы. У меня просто не хочет прикреплять рисунок.

Задание 1

a)

program pr;

var

s:string;

c:char;

i:integer;

begin

writeln('Введите имя и фамилию в одной строке');

readln (s);

writeln('Введите заданный символ');

readln (c);

for i:=1 to length(s) do if s[i]=c then writeln ('В строке найден заданный символ');

readln;

end.

б)

program pr;

var

s,n:string;

c:char;

i:integer;

begin

writeln('Введите имя и фамилию в одной строке');

readln (s);

i:=1;

while s[i]<>' ' do i:=i+1;

n:=copy(s,1,i-1);

writeln(n);

readln;

end.

в)

program pr;

var

s,n,f:string;

c:char;

i:integer;

begin

writeln('Введите имя и фамилию в одной строке');

readln (s);

i:=1;

while s[i]<>' ' do i:=i+1;

n:=copy(s,1,i-1);

f:=copy(s,i+1,length(s)-i+1);

writeln(n);

writeln(f);

readln;

end.

Задание2

program pr;

var s:string;

begin

s:='Касіу Ясь канюшыну';

delete (s,7,3);

insert ('Слово которое хотите вставить',s,7);

writeln (s);

readln;

end.