На соревнованиях по бегу на 5000 метров для выхода в финал необходимо показать время не более 18 минут 30 секунд.

Сколько спортсменов по результатам соревнований вышли в финал?

Количество спортсменов, принимавших участие в соревнованиях 30. Для каждого спортсмена вводится два числа: минуты и секунды - время, показанное на дистанции.

Question

Информатика

Зинаша

21 января, 14:09

На соревнованиях по бегу на 5000 метров для выхода в финал необходимо показать время не более 18 минут 30 секунд.

Сколько спортсменов по результатам соревнований вышли в финал?

Количество спортсменов, принимавших участие в соревнованиях 30. Для каждого спортсмена вводится два числа: минуты и секунды - время, показанное на дистанции.

+1

Ответы (1)

Знаете ответ на вопрос?

Маруша · Answer 1

Решил я Вам эту задачку в паскале. Я у себя проверил - всё работает.

Текст программы:

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.