Нужно в начале нажать на первую кнопку потом на вторую потом опять на первую и опять на вторую
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 кг семян дуба собрали ученики
Program n1;
var i,a,kn,pp,n: integer;
begin
write('введите кол-во чисел: ');
readln(n);
pp:=1;
kn:=0;
for i:=1 to n do
begin
write('введите ',i,' число: ');
readln(a);
if a mod 2<>0 then kn:=kn+1;
if a>0 then pp:=pp*a;
end;
writeln('кол-во неч. чисел: ',kn);
writeln('произв. пол чисел: ',pp);
end.
Var S:string;
i,r,k,t:integer;
Begin
r:=0;
k:=0;
t:=0;
Write('Введите строку: ');ReadLn(S);
For i:= 1 to Length(S) do
Case S[i] of
'r':r:=r+1;
'k':k:=k+1;
't':t:=t+1;
End;
WriteLn('r: ',r);
WriteLn('k: ',k);
WriteLn('t: ',t);
End.
//Pascal ABC.NET 3.1 сборка 1256
Var
ars:array[1..12] of string:=('января','февраля','марта','апреля','мая','июня','июля','августа','сентября','октября','ноября','декабря');
s:string;
begin
read(s);
if s[1]='0' then delete(s,1,1);
write(copy(s,1,pos('.',s)-1),' ');
delete(s,1,pos('.',s));
write(ars[strtoint(copy(s,1,pos('.',s)-1))],' ');
delete(s,1,pos('.',s));
write(s,' года');
end.
Пример ввода:
15.10.2012
Пример вывода:
<span>15 октября 2012 года</span>