Question

СРОЧНО!!!!!
Написать программу на языке паскаль
Автобус в первый день проезжает X км, каждый последующий день на Y км больше, через сколько дней автобус проедет Z километров.

Answer 1

var x, y, z, i: integer;

begin

   read(x, y, z);

   i := 1;

   while x < z do begin

       x += y;

       i += 1;

   end;

   write(i);

end.