Написать программы на Pascal для решения 3х задач. 1.Масса медвежонка составляет 15% массы белого медведя. Найдите массу белого медведя, если масса медвежонка N кг? 2. На производство 1 кв. метра ситца затрачивают 5 минут. Определить количество ткани, выпущенное за N часов при ширине полотна L.
Ответы на вопрос
Ответил fedrfedr
1
Ответ:
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 - ширина полотна
Новые вопросы
Геометрия,
1 год назад
Биология,
1 год назад
Алгебра,
1 год назад
Геометрия,
7 лет назад
Қазақ тiлi,
7 лет назад