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

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

var x: integer; s: real;

begin

readln(x);

s: =3.6/20*x*365;

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

end.

пример:

5

328.5 гр

var a: integer;

begin

writeln ('vvedite nomer mesuaca');

read (a);

if (a=1) then writeln ('30');

if (a=2) then writeln ('28');

if (a=3) then writeln ('30');  

  if (a=4) then writeln ('31');  

  if (a=5) then writeln ('30');  

  if (a=6) then writeln ('31');  

  if (a=7) then writeln ('30');  

  if (a=8) then writeln ('31');  

  if (a=9) then writeln ('30');  

  if (a=10) then writeln ('31');  

  if (a=11) then writeln ('30');  

  if (a=12) then writeln ('31');  

end. 

ткань, глина, дерево, стекло, бумага, металл, пластмасса, резина, лед, фасфор, газ, вода из всего этого може быть сделана информацтонная модель.