Например, так:
var n,i:integer;
begin
writeln('Vvedite n:');
readln(n);
for i:=1 to n do
write('*');
writeln();
end.
12 bit или 1,5 байта. По формуле N^k=(R). где N = 2 (двух битная инфо.), R = 12 (мощность алфавита). След. k= 12 бит.
1 бит = 0 или 1.
2 бита = 00 01 10 11
3 бита = 000 001 010 011 100 101 111
Procedure ShellStr(var s: string);
{ сортирует символы строки методом Шелла }
var
i, j, n, step: integer;
c: char;
begin
s := Trim(s);
n := Length(s);
step := n div 2;
<span> while step > 0 do </span>
begin
<span> for j := n - step downto 1 do </span>
begin
i := j;
<span> while i <= n - step do </span>
begin
if s[i] > s[i + step] then
begin
c := s[i];
s[i] := s[i + 1];
s[i + 1] := c
end;
i := i + step
end
end;
step := step div 2
end
end;
procedure TrimNullsLeft(var s: string);
{ Усекает левые (незначащие нули) в строке s }
var
i, n: integer;
begin
i := 1; n := Length(s);
while (s[i] = '0') do i := i + 1;
s := Copy(s, i, n - i + 1)
end;
var
p: integer;
s, M, N: string;
f: text;
begin
Assign(f, 'input.txt');
Reset(f);
Readln(f, s);
Close(f);
Assign(f, 'output.txt');
Rewrite(f);
s := Trim(s);
p := Pos(' ', s);
M := Copy(s, 1, p - 1);
N := Copy(s, p + 1, Length(s) - p);
s := M + N;
ShellStr(s);
TrimNullsLeft(s);
Writeln(f, s);
Close(f);
Writeln('Программа завершила работу')
<span>end.</span>
For i:= 1 to n do
begin
mas [ i ] := random(100);
if mas [ i ] < 50 then begin
sum1:= sum1 + mas [ i ] ;
inc(count1);
end
else begin
sum2:= sum2 + mas [ i ] ;
inc(count2);
end;
if coun1 >0 then writeln('result1 = ',sum1/count1);
if coun2 >0 then writeln('result2 = ',sum2/count2);
for i:= 1 to n do
if mas [ i ] = x then writeln(A[', i,'] );
end;
1.1: (Число меньше 40) ИЛИ НЕ (Число четное) должно быть ложным, варианты:
- 1: 123 не меньше 40 и не четное, получится истина
- 2: 56 не меньше 40 и четное, получаем ложь
- 3: 9 меньше 40, значит, истина
- 4: 8 меньше 40, истина
Ответ: 2
2.1:
НЕ((первая буква согласная) И (Последняя буква гласная)) должно быть ложно
- 1: Дарья, НЕ((Первая согласная)И(Последняя гласная)) = НЕ((истина)И(истина)) = ложь
- 2: Павел, НЕ((Первая согласная)И(Последняя не гласная)) = НЕ((истина)И(ложь)) = истина
- 3: Абрам, НЕ((Первая не согласная)И(Последняя не гласная)) = НЕ((ложь)И(ложь)) = истина
- 4: Анфиса, НЕ((Первая не согласная)И(Последняя гласная)) = НЕ((ложь)И(истина)) = истина
Ответ: 2
1.2
A1 = 3, B1 = 4, C1 = 2, D1 = 5
A2 = D1 - C1 + 1 = 5 - 2 + 1 = 4
B2 = D1 - 1 = 5 - 1 = 4
C2 = ?
D2 = B1 * 4 = 4 * 4 = 16
По рисунку видно что сумма всех меньших равна большему и сумма двух меньших равна половине большего(или же их сумме), C2 = 16 - 4 - 4 = 8
- 1: D1 - A1 = 5 - 3 = 2, не подходит
- 2: B1 + 1 = 4 + 1 = 5, тоже не то
- 3: D1 + A1 = 5 + 3 = 8, подходит
- 4: C1 * D1 = 2 * 5 = 10, не подходит
Ответ: 3
2.2
A1 = 2, B1 = 4, C1 = 6, D1 = 8
A2 = D1 / B1 = 8 / 4 = 2
B2 = D1 - B1 = 8 - 4 = 4
C2 = A1 + 2 = 2 + 2 = 4
D2 = ?
По рисунку видно что имеется 2 пары одинаковых значений, также сумма большего и меньшего равны другой сумме, 4 + 2 = 4 + X, X = 2
- 1: A1 - 1 = 2 - 1 = 1, не подходит
- 2: C1 + B1 = 6 + 4 = 10, тоже не то
- 3: C1 + 1 = 6 + 1 = 7, не подходит
- 4: C1 / 3 = 6 / 3 = 2, подходит
Ответ: 4
Ну а 3 задание не видно.
