Uses Crt;
Const
N = 39;
Var
X:array[1..N] of integer;
i,j,k:integer;
Begin
Randomize;
ClrScr;
k:=0;
WriteLn('Исходный массив: ');
For i:= 1 to N do
Begin
X[i]:=random(53)-15;
if X[i]<30 then
Begin
TextColor(12);
k:=k+1;
End
else TextColor(7);
Write(X[i],' ');
End;
WriteLn;
WriteLn;
TextColor(7);
WriteLn('Числа, меня тридцати: ',k);
WriteLn;
WriteLn('Упорядоченный массив: ');
For i:= 1 to N do
For j:= 1 to N-1 do
if X[j]>X[j+1] then
Begin
k:=X[j+1];
X[j+1]:=X[j];
X[j]:=k;
End;
k:=0;
For i:= 1 to N do
Begin
Write(X[i],' ');
j:=X[i];
While j div 10 <> 0 do
j:=j div 10;
if (j = 2)or(j = -2) then
k:=k+1;
End;
WriteLn;
WriteLn;
WriteLn('Числа, начинающиеся с двойки: ',k);
ReadLn;
End.
Ответ:
7
Объяснение:
Исходная фраза 46 букв:
съешь же ещё этих мягких французских булок, да выпей чаю
Поле удаления повторов 33 буквы:
съешьжщёэтихмягкфранцузблодвыпйчю
Удалены 13 символов:
ееихскихукаеа
е - 3 раза
и - 2 раза
х - 2 раза
к - 2 раза
а - 2 раза
с - 1 раз
у - 1 раз
Итого 7 неуникальных букв.
Uses graphabc;
begin
line(300,100,600,100);
line(200,400,500,400);
line(500,400,600,100);
line(200,400,300,100);
//
line(700,250,583,150);
line(700,250,532,300);
//
circle(520,150,30);
circle(520,150,20);
//
line(300,300,350,300);
line(300,300,200,200);
line(200,200,200,150);
line(200,150,250,150);
line(250,150,400,200);
line(400,200,400,250);
line(400,250,350,300);
//
line(225,320,150,300);
line(225,320,150,350);
line(150,350,150,300);
//
floodfill(520,150,clblack);
floodfill(600,250,clblack);
floodfill(350,250,clblack);
floodfill(210,199,clblack);
floodfill(450,350,clgray);
floodfill(155,303,clblack);
end.
Осина, осока, сосна, мостовая, космонавт, сосулька, простокваша, сосиска, соска, подсказка.