Решите задачу по информатике Pascal Напишите программу, вычисляющую идеальный вес человека по формуле (рост-110)*1,15 .
Результат вывести в виде: Для человека ростом ___ см, идеальный вес = ____ кг.
Из поселка в город выехал мотоциклист со скоростью V1 км/ч. В то же время ему на встречу выехал велосипедист со скоростью V2 км/ч. Они встретились через t часов. Составьте программу, которая выводит расстояние от города до поселка.

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

var
height, ideal_weight: real;
begin
write('Введите рост человека (в см): ');
readln(height);
ideal_weight := (height - 110) * 1.15;
writeln('Для человека ростом ', height:0:0, ' см, идеальный вес = ', ideal_weight:0:2, ' кг.');
end.var
V1, V2, t, distance: real;
begin
write('Введите скорость мотоциклиста (км/ч): ');
readln(V1);
write('Введите скорость велосипедиста (км/ч): ');
readln(V2);
write('Введите время встречи (часы): ');
readln(t);
distance := t * (V1 + V2);
writeln('Расстояние от города до поселка: ', distance:0:2, ' км.');
end.