Решите задачу по информатике Pascal Напишите программу, вычисляющую идеальный вес человека по формуле (рост-110)*1,15 .
Результат вывести в виде: Для человека ростом ___ см, идеальный вес = ____ кг.
Из поселка в город выехал мотоциклист со скоростью V1 км/ч. В то же время ему на встречу выехал велосипедист со скоростью V2 км/ч. Они встретились через t часов. Составьте программу, которая выводит расстояние от города до поселка.
Решите задачу по информатике Pascal Напишите программу, вычисляющую идеальный вес человека по формуле (рост-110)*1,15 .
Результат вывести в виде: Для человека ростом ___ см, идеальный вес = ____ кг.
Из поселка в город выехал мотоциклист со скоростью V1 км/ч. В то же время ему на встречу выехал велосипедист со скоростью V2 км/ч. Они встретились через t часов. Составьте программу, которая выводит расстояние от города до поселка.
Результат вывести в виде: Для человека ростом ___ см, идеальный вес = ____ кг.
Из поселка в город выехал мотоциклист со скоростью V1 км/ч. В то же время ему на встречу выехал велосипедист со скоростью V2 км/ч. Они встретились через t часов. Составьте программу, которая выводит расстояние от города до поселка.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
height, ideal_weight: real;
begin
write′Введитеростчеловека(всм):′'Введите рост человека (в см): '′Введитеростчеловека(всм):′;
readlnheightheightheight;
ideal_weight := height−110height - 110height−110 * 1.15;
writeln′Длячеловекаростом′,height:0:0,′см,идеальныйвес=′,idealweight:0:2,′кг.′'Для человека ростом ', height:0:0, ' см, идеальный вес = ', ideal_weight:0:2, ' кг.'′Длячеловекаростом′,height:0:0,′см,идеальныйвес=′,idealw eight:0:2,′кг.′;
end.var
V1, V2, t, distance: real;
begin
write′Введитескоростьмотоциклиста(км/ч):′'Введите скорость мотоциклиста (км/ч): '′Введитескоростьмотоциклиста(км/ч):′;
readlnV1V1V1;
write′Введитескоростьвелосипедиста(км/ч):′'Введите скорость велосипедиста (км/ч): '′Введитескоростьвелосипедиста(км/ч):′;
readlnV2V2V2;
write′Введитевремявстречи(часы):′'Введите время встречи (часы): '′Введитевремявстречи(часы):′;
readlnttt;
distance := t * V1+V2V1 + V2V1+V2;
writeln′Расстояниеотгородадопоселка:′,distance:0:2,′км.′'Расстояние от города до поселка: ', distance:0:2, ' км.'′Расстояниеотгородадопоселка:′,distance:0:2,′км.′;
end.