Мадана это медведь на юге
I)
var a,b:real;
c:integer;
begin
c:=0;
a:=243;
while a>=32 do begin
a:=a/3*2;
c:=c+1;
end;
writeln(c);
<span>end.
</span>II)
var s,b:integer;
begin
for b:=1 to 51 do
begin
s:=s+b;
end;
writeln(s);
end.
Гадость,где,где-нибудь,где-то,год,годный,гром,грохот,грош
Смотря на каком диске,а так файл
После последнего цикла for пишем
<span>for i:=1 to 10 do
begin
if a[i] mod 2 = 0 then
s:=s+a[i];
end;</span>