//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var i:=0;
range(0,10).Select(x->3**x).ForEach(t->begin writeln(i,' ',t); inc(i); end);
end.
Нада число представить двоичными триадами 45107(8)
100 101 001 000 111, затем с<span>права налево разбить на двоичные тетрады по 4 разряда и записать алфавитом 16сс
0100 1010 0100 0111=4А47</span>
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.
Var
s : String;
i : Integer;
begin
Writeln('Введите строку:');
Readln(s);
<span> i:= 0;
</span><span>
while pos(')', s) <> 0 do
</span> begin
<span> i := i + pos(')', s) - pos('(', s) + 1;
</span><span> delete(s, pos('(', s), pos(')', s) - pos('(', s) + 1);
</span> end;
<span>
Writeln(s);
</span> Writeln(i);<span>
Readln;
</span><span>end.
2)
var
s : String;
</span> <span>i, e : Integer;
</span> <span>flag : Boolean;
begin
Writeln('Введите строку:');
Readln(s);
<span>
</span></span> <span>e := 0;
</span> <span>flag := False;
for i := 1 to Length(s) do
</span> <span>begin
</span> <span>if (s[i] = UpCase(s[i])) and ((s[i - 1] = ' ') or ( i = 1 )) then flag := True;
</span> <span>if flag then Write(s[i]);
</span> <span>if (( s[i] = ' ' ) or ( i = Length(s))) and flag then
</span> <span>begin
</span> <span>flag := False;
</span> <span>inc(e);
</span> <span> Writeln;
</span> <span>end;<span>
</span></span> <span>end;
<span> Writeln(e);
</span><span> Readln;
</span>end.</span>
Var out, i:integer;beginfor i:=50 to 100 do if i mod 10 = 3 then inc(out);write(out);end.