Допустим, дано число в 10й СС: 42;
Переводим в 16ю СС:
42 / 16 = 2 (остаток 10, 10 = A)
Ответ: 2A.
В 8ю:
42 / 8 = 5(остаток 2)
Ответ: 52
В 2ю:
42 / 2 = 21 (ост 0)
22 / 2 = 10 (ост 1)
10 / 2 = 5 (ост 0)
5 / 2 = 2 (ост 1)
2 / 2 = 1 (ост 0)
Ответ: 101010
Т.е. делишь число на основание той СС, в которую хочешь перевести до того момента, когда целая часть будет меньше основания СС в которую переводишь, остатки выписываешь снизу вверх.
Ответ:
Отяаьщшърь беняй, ш фцхый эюьхтпнщ.
Яэьгпнацщяш, сн эьхсыь. Тьа ьы, эюцпнщ!
Эьщбхынчшн - ъыцщ ятош ъбсютдьъ
Ц хныьяецпь фснщ ынрюс ц эьгпнщ
ьяанщйыиг ътеанщ хняьоьл птяац,
Н ьыу ътыш янъц яоцщц я эбац.
(это только часть стиха)
Объяснение:
А=Н Б=О это не сложно но долго. После составления ключ-таблицы мы шифруем стих
Проверено, работает на Паскаль АВС:
Program rabota_s_massivom;
uses crt;
label metka;
const N=30;
var M: array[1..N] of integer;
i,k,s,kmax,reserve:integer;
begin
for i:=1 to N do
begin
write('Введите ',i,'-й элемент: '); readln(M[i]);
end;
writeln('Массив:');
for i:=1 to N do
begin
write(M[i],' ');
end;
k:=1; {Число элементов в текущей последовательности. Изначально считаем, что последовательность состоит из одного (первого) элемента}
{Ищем первый нечётный элемент:}
repeat
reserve:=reserve+1;
until (m[reserve] mod 2 = 1) or (reserve = 30);
writeln(reserve);
if (m[reserve] mod 2 = 0) and (reserve = 30) then
begin
writeln('Все числа чётные. Искомая последовательность не существует');
goto metka;
end;
s:=M[reserve]; {Сумма элементов текущей последовательности пока что равна первому нечётному элементу}
kmax:=0; {Наибольшая длина последовательности}
for i:=reserve+1 to n do {Перебираем все элементы, начиная с первого нечётного}
begin
if (m[i] mod 2 = 1)
then {Если текущее число всё ещё нечетно}
begin
s:=s+m[i]; {Увеличиваем сумму последовательности}
k:=k+1 {Увеличиваем счётчик длины последовательности}
end
else {Если встретилось четное число}
begin
if k>kmax then {Проверяем, не является ли полученная последовательность длиннее нашего максимума}
begin {Если да:}
kmax:=k; {Запоминаем новую длину последовательности}
reserve:=s {Запоминаем сумму её элементов}
end;
k:=0; {Устанавливаем длину новой последовательности равной 0}
s:=0 {Сумма элементов этой последовательности тоже пока что = 0}
end;
end;
if k>kmax then {Если самая длинная последовательность находится в конце массива, проверим ещё раз текущий максимум}
begin
kmax:=k;
reserve:=s
end;
writeln('самая длинная последовательность нечётных чисел состоит из ',kmax,' элементов');
writeln('и сумма этой последовательности равна ',reserve);
metka: end.
Текстовый: doc, txt, docx, ttf (формат компьютерных шрифтов, не знаю, подходит ли он)
графический: jpg, tiff
видео: mov, mpg, avi
звуковой: wav, mp3
For i:=1 to 9 do
for j:= 0 to 9 do
if((i*i+j*j-3*i*j=1)and((i*10+j)div(i+j) = 7)and((i*10+j)mod(i+j) = 7) then write('Искомое число',i*10+j);
end.