Рассчитайте количество часов, которое вы тратите ** выполнение домашнего задания в день,...

Question

Рассчитайте количество часов, которое вы тратите на выполнение домашнего задания в день, если среднее количество предметов в день и среднее время (в минутах), затрачиваемое на подготовку к каждому предмету, запрашивается у пользователя вашей программы

Answer 1

Var a, i: byte;
      b, c: word;
begin
write('Введите среднее количество предметов в день: ');
readln(a);
c := 0;
for i := 1 to a do begin
   write('Сколько минут в среднем вы тратите на подготовку к предмету: ');
   readln(b);
   c := c + b
end;
write('Количество часов, которое вы тратите на выполнение домашнего задания в день: ', (c / 60));
end.