Рассчитайте количество часов, которое вы тратите на выполнение в день, если среднее количество предметов в день и среднее время (в минутах), затрачиваемое на подготовку к каждому предмету, запрашивается у пользователя вашей программы
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.
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.