Написать решение задачи на языке программирования Паскаль. 6.Тронувшись с места, автомобиль каждую секунду увеличивает скорость на a км/ч. На этом участке дороги существует ограничение V км/ч. Выяснить, через сколько полных секунд автомобиль превысит предельно допустимую скорость V?

Предыдущий
вопрос Следующий
вопрос

program ExceedSpeedLimit;

var
speed, a, V, seconds: integer;

begin
Write('Введите начальную скорость автомобиля (км/ч): ');
ReadLn(speed);

Write('Введите увеличение скорости на каждой секунде (км/ч): ');
ReadLn(a);

Write('Введите предельно допустимую скорость (км/ч): ');
ReadLn(V);

seconds := 0;

while speed <= V do
begin
speed := speed + a;
seconds := seconds + 1;
end;

WriteLn('Автомобиль превысит предельно допустимую скорость через ', seconds, ' секунд.');
end.