1. Напишите программу вычисления веса идеального мужчины по формуле: Ид. Вес-Рост в см - 100 Значение роста вводится с клавиатуры. Результат вывести в следующем виде: Для мужчины ростом 165 см идеальный вес равен 65 кг. 2. По аналогии с заданием №1 составить программу, определяющую идеальный вес женщины по следующей формуле: Ид. Вес=Рост в см - 100 - 10% (от Рост в см - 100)

1) program zz1;

var a, b:integer; / / задаем переменные целого типа

begin

write (' введите рост мужчины в см '); / / вводим с клавиатуры число

read (a);

b:=a - 100;

write (' Для мужчины ростом ', a, ' см. идеальный вес равен ', b, ' кг.'); / /выводим ответ

end.

2) program zz1;

var a, b, c:integer; / / задаем переменные целого типа

begin

write (' введите рост женщины в см '); / / вводим с клавиатуры число

read (a);

b:=a - 100;

c:=b - b div 10;

write (' Для женщины ростом ', a, ' см. идеальный вес равен ', c, ' кг.'); / / выводим ответ

end.