Напишите программу на pascal abc: в пачке сигарет (20 штук) содержится приблизительно 3,6 граммов смолы, которая

Манго

49

Решение:

Для того чтобы написать программу на Pascal ABC, которая рассчитывает количество смолы, которая осела бы в легких курильщика за год, необходимо выполнить следующие шаги:

1. Объявить переменные:
- smolaPerSigareta (смолы в одной сигарете) = 3.6 г
- sigaretVUpakovke (сигарет в упаковке) = 20 штук
- 365 (дней в году)
- x (сигарет в день)

2. Вычислить общее количество смолы, которое осело бы в легких курильщика за день:
- smolaVDen = smolaPerSigareta * x

3. Вычислить общее количество смолы за год:
- smolaZaGod = smolaVDen * 365

4. Написать программу на Pascal ABC:

pascal

program RaschetSmoly;



var

  smolaPerSigareta, smolaVDen, smolaZaGod: real;

  sigaretVUpakovke, x: integer;

  

begin

  smolaPerSigareta := 3.6;

  sigaretVUpakovke := 20;

  x := 10; // Пример: Курильщик курит 10 сигарет в день

  

  smolaVDen := smolaPerSigareta * x;

  smolaZaGod := smolaVDen * 365;

  

  writeln("Количество смолы, которая осела бы в легких курильщика за год: ", smolaZaGod, " г");

end.

5. Запустить программу, предварительно заменив значение переменной x на нужное количество сигарет, которые курильщик выкуривает в день.

Таким образом, эта программа на Pascal ABC поможет рассчитать количество смолы, которая осела бы в легких курильщика за год, и выведет результат в граммах.