Вычислить (1+sin0.1)(1+sin0.2) (1+sin10) для free pascal.

Var i,p: real; begin   i: =0.1;   p: =1;   while (i< =10) do     begin         p: =p*(1+sin(pi*i/180));         i: =i+0.1;     end;   writeln ('rezultat: ',p);   readln; end.

решение на языке pascal

program pr;

var n,a,b,c, sum: integer;

begin

readln (n);

a: =n div 100;

b: =n mod 100 div 10

c: =n mod 10

sum: =a+b+c;

if   sum mod 2 = 0 then writeln ('сумма цифр четная') else writeln('сумма цифр четная');

readln;

end.

1) 24+18+12=54 (ч.) 2) 54-35=19 (ч.) не любят не один вид спорта. 3) 10+8+5=23 (ч.) - любят 2 или больше видов спорта. 4) 23-19=4 (ч.) - любят все три вида спорта.

ответ: 4 человека любят три вида спорта.