6. Отметьте вредные факторы, влияющие на состояние здоровья лю- дей, работающих за компьютером. A) Проблемы, связанные с электромагнитным излучением. B) Проблемы зрения. С) Проблемы, связанные с мышцами и суставами. D) Стресс, депрессия и другие нервные расстройства, вызванные влия- нием компьютера на психику человека. E) Негативное влияние на кругозор.

Вредные факторы, влияющие на состояние здоровья людей, работающих за компьютером:

A) Проблемы, связанные с электромагнитным излучением.

B) Проблемы зрения.

С) Проблемы, связанные с мышцами и суставами.

D) Стресс, депрессия и другие нервные расстройства, вызванные влиянием компьютера на психику человека.

Вот примерно так

Объяснение:

var

 s, s1: string;

 i, k: integer;

 

begin

 write('Введите строку: ');

 readln(s);

 //s := 'мама папа дед лес поп';

 writeln(s);

 s := s + ' ';

 i := 0;

 k := 1;

 while i < Length(s) do

 begin

   inc(i);

   if not (s[i] in [' ', ',', '-']) then  

     s1 := s1 + s[i]

      else  

   begin

     if s1[1] = s1[Length(s1)] then  

     begin

       //    writeln(s1);

       delete(s, k, Length(s1) + 1);

       //    writeln(s);

     end;  

     inc(k, Length(s1) + 1);

     s1 := '';

     //writeln(k);

   end;

 end;

 writeln(s);

end.

# 1.

# Полагаю, что в техническом задании ошибка и считаю фразу "делятся на" фразой "целочисленно делятся на".

def IsDivisible(digit, n): return (digit % n == 0)

digits=range(20, 50 + 1)

required=[str(digit) for digit in digits if IsDivisible(digit, 2) and not IsDivisible(digit, 5)]

print("Result:\n", '\n'.join(required))

# 2.

# Боль от запятой. Голову изломал от этого дробного остатка...

digits=range(35, 87 + 1)

required=[str(digit) for digit in digits if digit % 7 == 1 or digit % 7 == 2 or digit % 7 == 5]

print("Result:\n", '\n'.join(required))