Program rtr1;Uses crt;var a,s,d,e:integer; ss,dd,ee:string;beginclrscr;Writeln('Введите число от 100 до 399');readln(a);s:=a div 100;e:=a mod 100 mod 10;d:=a div 10 mod 10;case s of1: ss:='сто';2: ss:='двести';3: ss:='триста';end;case d of2: dd:='двадцать';3: dd:='тридцать';4: dd:='сорок';5: dd:='пятьдесят';6: dd:='шестьдесят';7: dd:='семьдесят';8: dd:='восемьдесят';9: dd:='девяносто';end;case e of1: ee:='один';2: ee:='два';3: ee:='три';4: ee:='четыре';5: ee:='пять';6: ee:='шесть';7: ee:='семь';8: ee:='восемь';9: ee:='девять';end;if d=1 then begin case e of 1: dd:='одинадцать'; 2: dd:='двенадцать'; 3: dd:='тринадцать'; 4: dd:='четырнадцать'; 5: dd:='пятнадцать'; 6: dd:='шестнадцать'; 7: dd:='семнадцать'; 8: dd:='восемнадцать'; 9: dd:='девятнадцать'; end;write(ss,' ',dd);end elsewrite(ss,' ',dd,' ',ee);
<span>end.</span>
512 гбит / 8 = 64 Гбайта
64 Гбайта * 1024 = 65536 килобайт
65536 * 1024 = 67108864 байт
67108864 = 2 в степени 26
Ответ 26
pb = 25000
pc = 16000
pt = 2000
for qb in 1..100
for qc in 1..100
qt = 100 - qb - qc
if pb*qb + pc*qc + pt*qt <= 500000
puts "%3i %3i %3i sum = %5i" % [qb,qc,qt,pb*qb + pc*qc + pt*qt]
end
end
end
При столбцовой перестановке главное - это угадать количество столбцов. Их может быть от двух до половины символов в тексте. В этом случае полезно начать с выделения слова и решения полученной анаграммы.
Например, анаграмма ИПКСОЕ не дает осмысленного слова а русском языке. Укоротим ее на одну букву. ИПКСО - анаграмма слова ПОИСК. Логично предположить, что количество столбцов равно 5.
31542 - порядок столбцов
ИПКСО
Е_ТСМ
НАЧИ_
ОЕН_Г
ДЕЛА
После перестановки:
ПОИСК
МЕСТ
А НИЧ
ЕГО Н
Е ДАЛ
Результат: "ПОИСК МЕСТА НИЧЕГО НЕ ДАЛ"