А) 21 24 27 30 (каждый раз к числу прибавляется 3 единицы) б) 35 40 45 50 (каждый раз к числу прибавляется 5 единиц) в) 27 31 35 39 (каждый раз к числу прибавляется 4 единицы) г) 19 18 16 15 (сначала отнимаешь 2 единицы, потом 1 единицу, и все ещё раз повторяется) д) 25 36 49 64 (каждый раз увеличиваешь на не чётное число т.е на 9,11,13,15) е) 46 47 48 56 (сначала прибавляешь 8 единиц, а затем к двум числам прибавляешь по единице, а после все повторяется сначала) ж) 55 62 69 75 (каждый раз прибавляешь по 7 единиц) з) 32 24 16 8 (каждый раз отнимаешь по 8 единиц) и) 400 500 600 700 (каждый раз прибавляешь по 100 единиц) к) 312 313 314 412 (случай такой же как и под буквой е) только увеличиваешь сначала сотни, а потом единицы) л) 312 322 332 412 (это аналогично только сначала увеличиваешь сотни, а потом десятки) м) 33 65 129 257 ( сначала увеличиваешь на 2 в 4 степени (это 16), потом на 2 в 5 степени (это 32) и т.д.) н) 12 17 23 30 (каждый раз прибавляешь последующее число от начала счета т.е к числам которые нужно написать сначала увеличиваешь на 4 потом на 5, на 6 и на 7) о) 48 63 80 99 (точно такой же случай как и под буквой д) п) 216 343 512 719 ( это все числа в кубе например (1 в кубе это 1), (2 в кубе это 8),(3 в кубе это 27), (4 в кубе это 64), (5 в кубе это 125) ну и так далее) я надеюсь что не запуталась в этих цифрах))
должно по идее получиться "нет худо без добра.", но у меня получилось
"нет худо бrз одра." может ты в условии что-то напутала? вот программа которая переводит
function Pow(a, x:integer):integer;
var
rez, i:integer;
begin
rez := 1;
for i := 1 to x do
rez := rez * a;
Pow := rez;
end;
function BinToDec(a:string):integer;
var
i ,r:integer;
begin
r := 0;
for i := length(a) downto 1 do
r := r + StrToInt(a[i]) * Pow(2, length(a) - i);
BinToDec := r;
end;
var
s:array[1..100] of string;
i:integer;
begin
s[1] := '11001101';
s[2] := '11100101';
s[3] := '11110010';
s[4] := '00100000';
s[5] := '11110101';
s[6] := '11110011';
s[7] := '11100100';
s[8] := '11100000';
s[9] := '00100000';
s[10] := '11100001';
s[11] := '1110010';
s[12] := '11100111';
s[13] := '00100000';
s[14] := '11101110';
s[15] := '11100001';
s[16] := '11110000';
s[17] := '11100000';
s[18] := '00101110';
for i := 1 to 18 do
write(chr(BinToDec(s[i])));
end.