Чтобы выполнить это задание по информатике, следует прочитать конспекты лекций по этому предмету, а также разобраться со всеми практическими занятиями, которые проводились. Если же всё упущено и пропущено, то придётся самостоятельно изучить - по книгам.
Ну наверное самым значимым из его изобретений которое не пошло на пользу человечества следует считать "рулетку", именно Паскалю принадлежит придумывание колеса со вращающимися цифрами. Вряд ли это принесло большую пользу, по моему мнению вреда это изобретение принесло больше.
Если 25 участников владеет Паскалем и 22 Бейсиком то получается что двумя языками владеет 25+22-35=12 участников, а всего 35 участников, вычитаем 12, владеющих двумя языками и получаем 35-12=23 участника.
Правильный ответ В) 23
Попробуйте так:
for i:=M to N do
begin
write(i, ' Команда:'); Read(Team[i]);
write(' Очки:'); Readln(P[i])
end;
write('Введите название команды:'); Readln(X);
L:=M; R:=N;
while ((R-L)>0) do
begin
K:=(R+L) div 2;
if (X<=Team[K]) then R:=K else L:=K+1
if (X=Team[K]) then break
end;
if(X=Team[R]) then WriteLn(X,' Имеет', P[R],' очков')
else WriteLn(X,' Нет в таблице')
end.
Во-первых: легаси. Некоторые программы были написаны очень давно и работают. Нет ни времени, ни желания их переписывать. Я встречался с такими программами в сфере промышленных контроллеров.
Во-вторых: сам по себе язык Pascal трансформировался в язык Delphi. Считается, что это все еще современный язык. Наверное так и есть, но я забыл о Delphi с тех пор как выучил C++ и C#.
Ну и не забудем об использовании Паскаля в школах для обучению азам программирования.
