На соревнованиях по бегу на 5000 метров для выхода в финал необходимо показать время не более 18 минут 30 секунд.
Сколько спортсменов по результатам соревнований вышли в финал?
Количество спортсменов, принимавших участие в соревнованиях 30. Для каждого спортсмена вводится два числа: минуты и секунды – время, показанное на дистанции.
Ответы
Ответ дал:
4
Решил я Вам эту задачку в паскале. Я у себя проверил - всё работает.
Текст программы:
Program Sport;
var
m, s, i, kol: integer;
begin
for i:=1 to 30 do begin
write('Введите минуты, а затем секунды показанные спортсменом номер '+i+':');
read(m,s);
if (m<18) then inc(kol);
if (m=18) and (s<=30) then inc(kol);
end;
writeln(kol);
end.
Текст программы:
Program Sport;
var
m, s, i, kol: integer;
begin
for i:=1 to 30 do begin
write('Введите минуты, а затем секунды показанные спортсменом номер '+i+':');
read(m,s);
if (m<18) then inc(kol);
if (m=18) and (s<=30) then inc(kol);
end;
writeln(kol);
end.
Вас заинтересует
4 месяца назад
4 месяца назад
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад