Довольно просто найти ответ, используя таблицу в Excel (см.файл).
В первом столбце таблицы ставим номер шага- от состояния до начала (нулевой шаг), до девятого шага.
В следующем столбце будем составлять слово для каждого шага.
Для нулевого шага оставляем пустую ячейку.
Для первого шага пишем такую формулу:
=СИМВОЛ(B4+64)&C3&C3
Эта формула составляет одну текстовую строку из трёх текстовых строк (символ "&" как раз выполняет соединение строк).
здесь B4 -адрес ячейки, находящейся слева от текущей (в ней содержится номер текущего шага).
Для первого шага, к номеру шага (1) прибавляется число 64 (получили 65), затем функция СИМВОЛ возвращает нам первую букву латинского алфавита (её код=65).
Для каждого следующего шага получаемый код будет увеличиваться на единицу, и функция будет возвращать по порядку следующие буквы алфавита (они идут по порядку, с кодами 65 - 90).
C3 -адрес ячейки, находящейся сверху от текущей (в ней содержится строка, полученная на предыдущем шаге).
Для первого шага берётся строка с нулевого шага (из пустой ячейки, то есть пустая строка).
Эта взятая строка дважды добавляется к предыдущему тексту (к букве алфавита).
Для каждого следующего шага, к букве будет дважды добавляться текстовая строка, полученная на предыдущем шаге.
Эту формулу надо скопировать во все ячейки столбца, с первого до девятого шага.
Затем, под этой таблицей, в любой ячейке ставим формулу, составляющую текстовую строку пароля:
=ПСТР(C12;1;1)&ПСТР(C12;511;1)&ПСТР(C12;6;1)&ПСТР(C12;258;1)&ПСТР(C12;68;1)
Здесь C12 -адрес ячейки, в которой содержится текстовая строка, полученная на последнем, девятом шаге.
Формула состоит из пяти функций ПСТР, каждая из них возвращает по одной букве пароля, затем буквы составляются в одну текстовую строку пароля, сцепляясь с помощью символа "&".
Для функции ПСТР в скобках указаны через точку с запятой её аргументы: текстовая строка (у нас стоит ссылка на строку в ячейке C12); позиция извлекаемой буквы в строке (по задаче, используются пять позиций: 1, 511, 6, 258 и 68); количество извлекаемых букв (одна).
В итоге, мы получаем текстовую строку пароля:
IADGE (первой идёт большая буква i)
Также, я добавил третий столбец, где показывается длина текстовой строки, полученной на каждом шаге. Этот столбец не обязательный, я добавил просто для сведения.
Если эксель у вас не установлен, можно использовать его онлайн-версию (там нужно войти с учётной записью майкрософт), либо использовать бесплатные аналоги (например из OpenOffice). Есть и бесплатные онлайн аналоги экселя.
Но, в аналогах скорее чаще всего функции уже другие (в OpenOffice, например, вместо СИМВОЛ используется CHAR, а вместо ПСТР используется MID.
64=2^i
i=6
n=57344*6=344064 бита=43008 байтов = 42 кб
If then,тогда 1 оператор
Если if then begin <условие1>; <условие2>; end;
Тогда можно писать бесконечное кол-во операторов
Ответ:
Program a2;
var k, m, c: integer;
begin
readln(k, m, c);
if (k+m) >= c Then
writeln('Yes')
else
writeln('No');
end.
Объяснение:
k - денег у Вити, m - денег у Пети, c - стоимость покупок, если сумма денег больше либо равна стоимости покупок => расплатиться они за покупки смогут
1)
var s,a,b: string; i,p: byte;
begin
s:='Снег лежит на земле';
writeln('Было:');
writeln(s);
a:='на земле';
b:='повсюду';
p:=Pos(a,s);
delete(s,p,length(a));
insert(b,s,p);
writeln('Стало:');
writeln(s);
end.
-----------------------------------
Было:
Снег лежит на земле.
Стало:
Снег лежит повсюду.
-----------------------------------
2)
var s: string;
begin
writeln('Введите слово:');
readln (s);
if length(s)>5 then writeln ('Верно') else writeln ('Не верно');
end.
------------------------------------
Введите слово:
ученик
Верно
------------------------------------
3)
var s: string; i,k: byte;
begin
writeln('Введите слово:');
readln (s);
k:=length(s);
for i:=1 to k do
s:=s+'+';
writeln (s)
end.
-------------------------------------
Введите слово:
море
море++++
-------------------------------------