Создайте программу для Pascal ABC: сколько граммов смолы, осаждаемой в легких, осядет за год у курильщика, который выкуривает x сигарет в день, если в пачке сигарет (20 штук) содержится примерно 3,6 граммов смолы?
Ignat
Для создания программы на языке Pascal ABC, которая будет решать данную задачу, следуйте этим шагам:
1. Объявите переменные:
- x - количество сигарет, выкуриваемых в день.
- pack_smoke_resin - количество граммов смолы в пачке сигарет.
- year_days - количество дней в году.
- resin_per_year - количество граммов смолы, осаждаемой в легких за год.
2. Считайте значение переменной x с помощью команды ReadLn.
3. Рассчитайте количество смолы, осаждаемой в легких за год, используя формулу:
\[resin\_per\_year = \frac{{x \cdot pack\_smoke\_resin \cdot year\_days}}{20}\]
4. Выведите результат на экран с помощью команды WriteLn.
Вот полный код программы на Pascal ABC:
После выполнения программы, школьник увидит на экране количество граммов смолы, которые осадятся в легких за год при заданном количестве сигарет в день. Этот результат поможет ему лучше понять вред, который курение может причинить его здоровью.
1. Объявите переменные:
- x - количество сигарет, выкуриваемых в день.
- pack_smoke_resin - количество граммов смолы в пачке сигарет.
- year_days - количество дней в году.
- resin_per_year - количество граммов смолы, осаждаемой в легких за год.
2. Считайте значение переменной x с помощью команды ReadLn.
3. Рассчитайте количество смолы, осаждаемой в легких за год, используя формулу:
\[resin\_per\_year = \frac{{x \cdot pack\_smoke\_resin \cdot year\_days}}{20}\]
4. Выведите результат на экран с помощью команды WriteLn.
Вот полный код программы на Pascal ABC:
pascal
Program CalculateResin;
Var
x: integer; // количество сигарет в день
pack_smoke_resin: real; // количество граммов смолы в пачке сигарет
year_days: integer; // количество дней в году
resin_per_year: real; // количество граммов смолы, осаждаемой в легких за год
Begin
WriteLn("Введите количество сигарет, выкуриваемых в день:");
ReadLn(x);
pack_smoke_resin := 3.6; // задаем значение количества граммов смолы в пачке сигарет
year_days := 365; // задаем значение количества дней в году
resin_per_year := (x * pack_smoke_resin * year_days) / 20; // рассчитываем количество граммов смолы, осаждаемой за год
WriteLn("Количество граммов смолы, осаждаемой в легких за год:", resin_per_year);
End.
После выполнения программы, школьник увидит на экране количество граммов смолы, которые осадятся в легких за год при заданном количестве сигарет в день. Этот результат поможет ему лучше понять вред, который курение может причинить его здоровью.
Знаешь ответ?
О проекте
Мы такая же школота как ты ;)
Предметы
Русский язык- Математика
- Геометрия
- Музыка
- История
- Экономика
- Литература
- Алгебра
- Другие предметы
- Физика
- Информатика
- Обществознание
- География
- Немецкий язык
- Химия
- Английский язык
- Психология
- Українська мова
- Окружающий мир
- Биология
- Беларуская мова
- Қазақ тiлi
- Право
- ОБЖ
- Українська література
- МХК
- Французский язык
