Question

Составьте программу для Pascal ABC:
В пачке сигарет (20 штук) содержится примерно 3,6 граммов смолы, которая осаждается в лёгких курильщика. Сколько смолы осядет в легких курильщика за год, если он выкуривает по x сигарет в день?

Answer 1

Программа на паскале:

var x: integer; s: real;

begin

readln(x);

s:=3.6/20*x*365;

writeln(s:4:1, ' гр');

end.

Пример:

5

328.5 гр