Вариант 1 1. Определите информационный объем сообщения «Доброго утра!», если мощность
алфавита 50 символов?​

1 sm('Игорь',18,189).

2 sm('Роман',17,182).

3 sm('Антон',20,191).

4 sm('Виктор',21,185).

5 sm('Николай',16,193).

6 % а) выбрать всех спортсменов выше 184 (включительно), но не выше 190;

7 % ?- findall( Name, (sm(Name, Age, Height), Height >= 184, Height < 190), Xs ).

8 % б) выбрать спортсменов моложе 20 лет, но не моложе 18 (включительно);

9 % ?- findall( Name, (sm(Name, Age, Height), Age < 20, Age >= 18), Xs ).

10 % в) выбрать всех спортсменов с ростом не ниже 186 и не старше 19 лет (включительно).

11 % ?- findall( Name, (sm(Name, Age, Height), Height > 186, Age =< 19), Xs ).

Код Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 program z1; var p,v:string;     a:array[0..255] of byte;     i,j:byte;   BEGIN write('Слово Пети: '); readln(p); write('Слово Васи: '); readln(v);   if (length(p) = length(v)) then     begin         writeln('Вася использовал все карточки с буквами Пети');         exit;     end;   fillchar(a,255,0); for i:=1 to length(p) do     inc(a[ord(p[i])]);     for i:=1 to length(v) do     dec(a[ord(v[i])]);   write('Не использованы карточки с буквами: ');  for i:=1 to 255 do     for j:=1 to a[i] do         write(chr(i),' '); END.