Нужна помощь в создании программы

[Sandra 2000]

Нужна помощь в создании программы

Составьте программу суммирующую штрафное время команд при игре в хоккей. Выводить на экран суммарное штрафное время обеих команд после любого его изменения. После окончания игры выдать итоговое сообщение.
Язык программирования ТурбоПаскаль.Пожалуйста очень нужна помощь!Буду очень признательна!tehnobanka

 

[Vladimir_S]

Вы бы хоть задачу сформулировали толком, что ли... Просто числа суммировать? Или Вам нужно программно организовать интерактивный режим при "живом" просмотре хоккейных матчей? Ничего не понятно!

 

[Sandra 2000]

Извините

Но мне самой такое условие дали это не я придумала задачу.

 

[Sandra 2000]

Я думаю

Наверное просто числа суммировать.А вы знаете как составить прогрмму?Сможете помочь?Я вас очень прошу!

 

[Vladimir_S]

Наверное просто числа суммировать.А вы знаете как составить прогрмму?Сможете помочь?Я вас очень прошу!

Да пожалуйста:

Var
 t, t_sum:byte;
Begin
 t_sum:=0;
 repeat
  Write('Next penal time in minutes (0 to quit): ');
  Readln(t);
  t_sum:=t_sum+t;
 until t=0;
  Writeln('Sum penal time is ',t_sum,' minutes');
 Readln
End.