Народ помогите очень срочно нужно!!!! 30 баллов.
В бригаде, работающей на уборке сена, имеется N косилок. Первая из них работала M часов, а каждая следующая на 10 минут больше, чем предыдущая. Сколько часов проработала вся бригада? Паскаль. Программу нужно
написать либо с циклом WHILE, либо с циклом Repeat - until. Заранее благодарю за помощь.
В бригаде, работающей на уборке сена, имеется N косилок. Первая из них работала M часов, а каждая следующая на 10 минут больше, чем предыдущая. Сколько часов проработала вся бригада? Паскаль. Программу нужно
написать либо с циклом WHILE, либо с циклом Repeat - until. Заранее благодарю за помощь.
More Questions From This User See All
Answers & Comments
var n,m,i :Integer;
begin
readln(n);
readln(m);
m:=m * 60;
while i<>n do
begin
m:=m+10;
i+=1;
end;
write(m div 60+' часа(ов)');
end.