Program lol;
var i:integer;
sum,kv:real;
begin
for i := a to b do
begin
kv = i*i;
sum:=sum+kv;
kv:=0;
end;
end.
1) 100%- 200 деревьев
2) 23%- х
Х= 23*200/100=46
3) 200+46=246 деревьев посадили школьники
1) 17+15+25=57% составляют семена кроме дуба
2) 100-57=43% составляют семена дуба
3)100%-50 кг
43%-х
х=43*50/100=21,5 кг семян дуба собрали ученики
Var
r,a:real;
begin
readln(a);
a:=a*100;
r:=a/4.45;
writeln(r:0:5);
end.<span>
</span>