По сути необходимо выбрать две позиции для красных гирлянд (пара чисел без учёта порядка). Такой выбор осуществляется С²₅ = 10
111011 = 1 * 2^5 + 1 * 2^4 + 1 * 2^3 + 1 * 2^1 + 1 * 2^0 = 59 (10)
59 / 8 = 7
56 =
3
59 = 73 (8)
1.
var a,c:integer; m:set of 0..9; b:boolean;
begin
readln(a);
m:=[];
b:=false;
while a>0 do
begin
c:=a mod 10;
if c in m then b:=true;
m:=m+[c];
a:=a div 10;
end;
if b then writeln('Да')
else writeln('Нет');
end.
Пример:
121
Да
2.
var a,b,c:integer;
begin
readln(a);
c:=a;
b:=0;
while c>0 do
begin
b:=b*10+c mod 10;
c:=c div 10;
end;
if a=b then writeln('перевертыш')
else writeln('Нет');
end.
Пример:
121
перевертыш
а в чем проблема в excel переписываешь 10-11 ячейки объединяешь
колонку цену делаешь по центру на 5 минут работы
Появился Microsoft Word, а там правописание,.