Сколько существует операционных систем? какие?

Есть 3 основных, по популярности -
1) Windows
2) Mac OS
3) Linux

Ого, их очень много... Unix, Windows, Linux, GNU, MacOS, DOS, Apple, AIX, (самые популярный на сегодняшний день)

а) ?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.