1. Известно, что нормальный вес человека можно определить, используя формулу:

Вес = рост (см) * окружность гр. клетки (см) / 240

Составить алгоритм и программу для определения веса по этой формуле.

2. Записать алгоритм для вычисления произведения и деления двух чисел

1.

Program p1;

var r, g:integer; v:real;

begin

write ('Рост (см) = ') ; readln (r) ;

write ('Гр. клетка (см) = ') ; readln (g) ;

v:=r*g/240;

writeln ('Вес = ', v:5:2) ;

end.

Пример:

Рост (см) = 160

Гр. клетка (см) = 90

Вес = 60.00

2.

Program p2;

var a, b, c:integer; d:real;

begin

write ('a = ') ; readln (a) ;

write ('b = ') ; readln (b) ;

c:=a*b;

writeln (a,' * ', b,' = ', c) ;

d:=a/b;

writeln (a,' / ', b,' = ', d) ;

end.

Пример:

a = 8

b = 10

8 * 10 = 80

8 / 10 = 0.8