В бригаде, работающей на уборке сена, имеется N косилок. Первая из них работала M часов, а каждая следующая на 10 минут больше, чем предыдущая. Сколько часов проработала вся бригада?

Pascal

varn,m,i :Integer;
begin
  readln(n);
  readln(m);
m:=m * 60;
  for i:=1 to n do
  begin
  m:=m+10;
end;
write(m div 60+ часа(ов));
end.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!