Var a,b:real;
begin
read(a,b);
if a>b then
begin
a:=a-b;
b:=2*b+a;
end
else
begin
b:=b-a;
a:=2*a+b;
end;
write(a,' ',b)
<span>end.</span>
#include <iostream>
#include <cstdlib>
#include <ctime>
int main()
{
using namespace std;
const int n = 10; //количество элементов массива
int Arr[n];
//как-нибудь заполняем массив
srand(time(0));
int i;
for (i = 0; i < n; ++i)
Arr[i] = rand() % (n * n) + 1;
//выведем его на экран
for (i = 0; i < n; ++i)
cout << Arr[i] << " ";
cout << endl;
int p;
for (i = 1; i < n; ++i)
{
p = i;
while (p % 2 == 0)
p /= 2;
if (p == 1)
cout << "Arr[" << i << "] = " << Arr[i] << endl;
}
cout << endl;
return 0;
}
Надеюсь, что это моно файл?
I = частота дискретизации * время * глубина звука
переводим все в биты, удобно решать в степенях 2, т.к. затем можно сократить.
Дерзай!!!
для контроля (215 Кб)
uses
System.Collections.Generic;
function reverse(const s: String): String;
begin
if Length(s) = 1 then reverse := s else
reverse := s[Length(s)] + reverse(Copy(s, 1, Length(s) - 1));
end;
var
lst: List<string> := new List<string>();
s, s1: string;
begin
writeln('Конец последовательности - пустая строка');
while (true) do
begin
readln(s);
if (s.Length = 0) then
break
else
lst.Add(s);
end;
writeln();
foreach s in lst do
begin
if ((s <> lst.Last()) and (s = reverse(s))) then
writeln(s);
end;
end.
Для кодирования одного из 5 символов требуется log(2)5 ≈ 3 бита.
Для хранения одного пароля необходимо 12*5 бит = 60/8 байт ≈ 8 байт.
Объем памяти, необходимый для хранения сведений об одном пользователе: 8+11 = 19 байт.
Объем памяти для хранения сведениях о 40 пользователях = 40*19 = 760 байт.
