Var i, n, sum: integer;
begin
writeln('Введите степень');
read(n);
sum := 1;
for i := 1 to n do
sum := sum * 9;
writeln(sum);
end.
PascalABC.NET 3.4
begin
// Если a и b целые, они также включаются в подсчет
var (a,b):=ReadReal2('Введите через пробел два числа:');
if a>b then Swap(a,b); // а - левая границв
Writeln('Целых чисел в интервале: ',Trunc(b)-Trunc(a)+1);
end.
Дополнительные сведения о панели быстрого доступа см. в статье Настройка панели быстрого доступа.
Чтобы отменить одновременно несколько действий, нажмите стрелку рядом с кнопкой Отменить Изображение кнопки, выделите в списке действия, которые нужно отменить, и щелкните список.
Все выделенные действия будут отменены.