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

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

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