Коэффициент надёжности хоккейных вратарей рассчитывается по формуле кн=60 минут пропущенные шайбы/общее время на площадке . электроник хочет сыграть в хоккейном турнире роботов так, чтобы его коэффициент надёжности оказался меньше 2. они с роботом айбо договорились стоять на воротах ,меняясь через каждые х минут. при условии,что в стартовом составе 60-минутной игры будет выходить на лёд электроник . чему может быть равно х, чтобы желание электроника осуществились, если единственный умеющий бить по воротам робот соперников т1000 забивает по одной шайбе через каждые 12 минут 25 секунд после начала игры?
а)2 б)4 в)8 г)16

Запишу на обычном языке, Паскаль не помню уже.

А - первое число. Б - второе число.

Если А больше Б и Б div 5=0 тогда выводится на экран (' Б наименьшее число и нацело делится на 5')

Если Б больше А и А div 5=0 тогда выводится на экран (' А наименьшее число и нацело делится на 5')

 

Точно не помню как выглядит это в Паскале, но что-то типо такого

If A<B and A div 5=0 then writeln ('А наименьшее число и нацело делится на 5');

If B<A and B div 5=0 then writeln ('Б наименьшее число и нацело делится на 5');

Значит так: мы создаем массив избыточной длины, куда потом будем записывать рандомные числа. Так же мы создаем массив-счетчик b (у него индексами являются сами числа, а элементами - количество этого числа в массиве А), куда будет присваиваться, сколько раз нам встречается то или иное число (перед этим мы массив обязательно обнулим). В конце мы смотрим максимальное число из массива-счетчика. Вуаля!

Вот пример программы на паскале ABC:

var a:array [1..1000000] of integer; 
b:array [1..10] of longint;   
c:integer;   
i,max,n:longint;
begin
write('Введите число элементов массива: ');
readln(n); 
max:=0; 
for i:=1 to 10 do 
b[i]:=0; 
for i:=1 to n do  begin 
a[i]:=random(10)+1; 
write(a[i],' '); 
b[a[i]]:=b[a[i]]+1 
end; 
for i:=1 to 10 do if b[i]>max then 
begin 
c:=i; 
max:=b[i] 
end; 
writeln; 
writeln('Чаще всего в массиве встречается число ',c)
end.