Скорость первого автомобиля V1 км/ч, второго — V2 км/ч, расстояние между ними S км. Определить расстояние между ними через (программа Паскаль)

287

465

Посмотреть ответы 2

Ответы на вопрос:

Лёлик8881

Другие предметы

4,4(52 оценок)

var
V1, V2, T, S: real;

begin
writeln('Введите скорости автомобилей (в км/ч):');
write(' V1 = ');
readln(V1); { <-- вводим скорость первого автомобиля }
write(' V2 = ');
readln(V2); { <-- вводим скорость второго автомобиля }
writeln('Введите расстояние между автомобилями (в км):');
write(' S = ');
readln(S); { <-- вводим начальное расстояние }
writeln('Введите время удаления автомобилей (в часах):');
write(' T = ');
readln(T); { <-- вводим время T удаления автомобилей }
V1 := V1 + V2; { <== скорость удаления автомобилей }
S := S + V1 * T; { <== расстояние через T часов удаления }
writeln;
writeln('Расстояние между автомобилями через ', T, ' часов:');
writeln(' S = ', S:0:3, ' км');
readln
end.