Известна скорость машины v км\ч(вводится с клавиатуры). Напечатать таблицу расстояний за...

Question

Известна скорость машины v км\ч(вводится с клавиатуры). Напечатать таблицу расстояний за время от 0 до 1 мин с шагом 10 секунд. Команда вывода writeln. (написать программу)

Answer 1

Var v:real; i,h:integer;
begin
write('V = '); readln(v);
v:=v*1000/3600; //м/сек
h:=10;
for i:=0 to 60 div h do
 writeln(i*h:3,' сек',v*i*h:6,' м');
end.

Пример:
V = 90
  0 сек     0 м
 10 сек   250 м
 20 сек   500 м
 30 сек   750 м
 40 сек  1000 м
 50 сек  1250 м
 60 сек  1500 м