For i 1 to 10 do
if a[i]=0 then
inc(k)
=====
for i 10 downto 1 do
write(a[i]:4:2)
var x,y,z:real;
begin
readln(x,y,z);
if (x<y+z) and (y<x+z) and (z<x+y) then begin
if (x=y) and (y=z) then writeln('Ravnostoronnii') else writeln('Ne ravnostoronnii');
end else writeln('Ne vozmojno sostavit');
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 кг семян дуба собрали ученики