Які вимоги до зберігання даних висуваються сучасним
інформатизованим суспільством?

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

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

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

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

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

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

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

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

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

var

i: integer;

s: real;

m: array[1..2,1..6] of real;

begin

s: =0;

for i: =1 to 6 do

begin

readln(m[1,i]);

readln(m[2,i]);

s: =s+3.14*m[1,i]*m[1,i]*m[2,i]*1200;

end;

writeln(s);

end.

1)

var

s,r: string;

i: integer;

begin

readln(s);

r: ='';

for i: =1 to length(s) do

if s[i]< > 'a' then r: =r+s[i];

writeln(r);

end.

2)

текст разделяем знаками препринания

var t: array [1..100] of string; p, s, r: string; f, i, j, k: integer;

begin p : = ' ; : -'; readln(s); k : = 0; r : = ''; for i : = 1 to length(s) do begin f : = 0; for j : = 1 to length(p) do if s[i] = p[j] then f : = 1; if f = 0 then r : = r + s[i] else begin k : = k + 1; t[k] : = r; r : = ''; end; if i=length(s) then begin k : = k + 1; t[k] : = r; end; end; for i : = k downto 1 do write(t[i], ' '); end.

сделать сначала 10х10 а потом растягиванием

а вообще легче всего будет написать код в vba (вставлять через макрос)

for i = 1 to 1000

  for j =1 to 1000

      cells(i,j)=i*j

  next j

next i