8 КЛАСС. ЕСТЬ ВСЕ ОБЪЯСНЕНИЯ К ЗАДАНИЮ Я В ИНФОРМАТИКЕ НЕ ШАРЮ.

1. Из 9-литрового перелить в 5-литровое (9-5=4, т.е. в 5-литровом 5 и в 9-литровом 4)2. Вылить из 5-литрового и перелить оставшиеся 4 литра из 9-литрового (в 5-литровом 4 и в 9-литровом 0)3. Наполнить 9-литровое и перелить из него в 5-литровое. Т.к. в 5-литровом уже есть4 литра, то в него войдет только 1 литр. В 9-литровом соответственно останется 8 литров.4. Вылить из 5-литрового всё и в него перелить из 9-литрового (8-5=3, т.е. в 5-литровом будет 5, а в 9-литровом - 3 литра)5. 5 литров вылить, а 3 принести )))

program Bear;

var

 N: Real;

begin

 Write ('Введите массу медвежонка: ');

 ReadLn (N);

 WriteLn ('Масса белого медведя = ', N / 0.15:10:3);

 ReadLn;

end.

program everyone;

var

 N, L, D: Real;

begin

 Write ('Введите количество часов: ');

 ReadLn (N);

 Write ('Введите ширину: ');

 ReadLn (L);

 D := N * 12 / L;

 WriteLn ('Количество ткани = ', D:10:2);

 ReadLn;

end.

Объяснение:

по задаче с ситцем: если за 5 минут делается 1 кв.м., то за час сделается 60 / 5 = 12 кв.м.

под количеством ткани, видимо имеется в ввиду длина полотна

длина будет равна: D := N * 12 / L, где

N - часы

L - ширина полотна