Ну наверное самым значимым из его изобретений которое не пошло на пользу человечества следует считать "рулетку", именно Паскалю принадлежит придумывание колеса со вращающимися цифрами. Вряд ли это принесло большую пользу, по моему мнению вреда это изобретение принесло больше.
Если 25 участников владеет Паскалем и 22 Бейсиком то получается что двумя языками владеет 25+22-35=12 участников, а всего 35 участников, вычитаем 12, владеющих двумя языками и получаем 35-12=23 участника.
Правильный ответ В) 23
Паскаль - еденица измерения давления. 1 кПа = 1000Па.
1 бар = 100 кПа, 1 атм (физическая) = 101.324997кПа, 1 атм (техническая) = 98.06652кПа. Детали по переводу едениц можно узнать здесь Конвертер физических и математических едениц
Попробуйте так:
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.
Это делается очень просто.
Для начала открываем IDE для Паскаля - ту, к которой вы привыкли.
Смотрим, есть задача. По ней нужно составить алгоритм, чтобы закодировать его. В формулировке данной задачи алгоритм фактически присутствует.
Первым шагом нужно считать число. Readln.
Цикл пока переменная имеет какое-то значение Repeat..Until или While.
Если число четное, то одно действие, а если нечетное, то другое. If, := и оператор mod наши друзья.
Ну и результат надо вывести. Writeln.
Все, программа готова.