В бригаде, работающей на уборке сена, имеется N косилок. Первая из них работала M часов, а каждая следующая на 10 минут больше, чем предыдущая. Сколько часов проработала вся бригада?
Ответы на вопрос
Ответил leon123
0
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.
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.
Новые вопросы