Народ30 .

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

написать либо с циклом while, либо с циклом repeat - until. заранее за .

aljoona99 aljoona99    1   05.12.2019 21:14    12

Ответы
8007F300среднячок 8007F300среднячок  10.10.2020 18:53

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика