Question

1. Найти степени числа 10 от 10^0 до 10^20. В паскаль

Answer 1

Ответ:

var

tmp:real;

i,j:integer;

begin

tmp:=1;

i:=1;

j:=1;

while(i<=20) do

begin

while(j<i) do

begin

tmp:=tmp*10;

j:=j+1;

end;

writeln('10^'+i+' = '+tmp);

i:=i+1;

end;

end.

Объяснение:

Алгоритм достаточно понятен.

Answer 2

Для вычисления степеней числа 10 от 10^0 до 10^20 в Pascal, вы можете воспользоваться циклом и встроенной функцией для возведения в степень. Вот пример кода:

pascalCopy code
program PowersOf10;

var
  i: Integer;
  result: Int64;

begin
  writeln('Powers of 10:');
  
  for i := 0 to 20 do
  begin
    result := Round(IntPower(10, i));
    writeln('10^', i, ' = ', result);
  end;
end.

В этом примере мы используем цикл for, который перебирает значения i от 0 до 20 включительно. Функция IntPower(10, i) вычисляет 10^i, а функция Round используется для округления результата до целого числа. Результаты выводятся на экран. Пожалуйста, убедитесь, что ваша среда разработки поддерживает функции IntPower и Round.