Например, в R8C2 записать формулу =СУММ(R5C2:R7C2), а потом перетаскиванием за нижний правый уголок размножить её на две ячейки вправо.
А в ячейке R2C5 записать формулу =СУММ(R2C2:R2C4)
Var
a:longint;
begin
readln(a);
k:=a mod 3;
If k=0 then writeln('Число делиться на 3')
else
writeln('Число не делиться на 3');
k:=a mod 5;
If k=0 then writeln('Число делиться на 5')
else
writeln('Число не делиться на 5');
k:=a mod 9;
If k=0 then writeln('Число делиться на 9')
else
writeln('Число не делиться на 9');
k:=a mod 10;
If k=0 then writeln('Число делиться на 10')
else
writeln('Число не делиться на 10');
k:=a mod 11;
If k=0 then writeln('Число делиться на 11')
else
writeln('Число не делиться на 11');
end.
Чтобы число было максимальным нужно, чтобы на первом месте стояли самые большие цифры. Это две двойки подряд.
Таких чисел 2:
221121122121
221212211211
Видно, что второе число больше, т.к у первого на 4-м месте - 1, а у второго 2
Ответ 221212211211
Begin
Writeln(20,' ',25);
Writeln(20); Writeln(25)
end.