Получается, что выгодно, рост доходов составит 3300 руб.
Старый и новый планы выпуска показаны на зеленом фоне, доходы - на синем.
В прикрепленном файле находится рабочая книга в формате MS Excel-2003.
Задача решена с помощью надстройки "Поиск решения".
Var i:integer;
begin
for i:=1 to 10 do
write(random(101)/100,' ');
<span>end.
</span>
1. если слово из 2-х букв
var a,b:char;
begin
readln(a,b);
writeln(a,b);
writeln(b,a);
writeln(a,a);
writeln(b,b);
end.
2, если не из двух букв
тут сначала вводится n - максимальная длина слова, а уже потом 2 буквы
var a,b:char;
n:integer;
procedure gen(i:integer;s:string);
begin
if i>n then exit;
if i<>0 then writeln(s);
gen(i+1,s+a);
gen(i+1,s+b);
end;
begin
readln(n);
readln(a,b);
gen(0,'');
end.
Как именно шифровать? Есть мириады способов зашифровать так, чтобы ключом был 'шифр'