Question

Составить блок-схему и написать программу

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

Answer 1

Блок-схема (с циклом) - в прилагаемом файле.
Программа (с циклом):
var n,m,m1,s,i:integer;
begin
readln(n,m);
m1:=m*60;
s:=m1;
for i:=2 to n do
 begin
 m1:=m1+10;
 s:=s+m1
 end;
writeln('s = ',s div 60,' час ',s mod 60,' мин');
end.

Пример:
5 2
s = 11 час 40 мин