Question

Даю 100 баллов.!!! Можете посмотреть в чем ошибка? Я не информатик и не могу понять в чем дело. Ели что, то вот задание: •Решить задачу: Вычислить все степени числа а до 10 . Вот моя программа: Program ya_bolshe_ne_budu_spisyvat; var a,b,c,d: integer; begin writeln('Возведите в степень'); write('Введите значение a'); readln(a); write('Введите значение b'); readln(b); c:=1; for a:=1 to b do c:=c*a; end.

Answer 1

Ответ:

Вроде все так...

Answer 2

Кажется, у вас есть небольшая путаница в коде. Вы описали задание "Вычислить все степени числа а до 10", но код, который вы предоставили, вместо этого вычисляет степень числа a в степени b. Давайте я помогу вам с исправлением кода для задачи "Вычислить все степени числа а до 10".

Программа должна выводить все степени числа a от 1 до 10. Вот как это может выглядеть:

pascalCopy code
Program calculatePowers;
var
  a, powerResult, i: integer;
begin
  writeln('Вычисление степеней числа а до 10');
  write('Введите значение a: ');
  readln(a);

  for i := 1 to 10 do
  begin
    powerResult := 1;
    for b := 1 to i do
      powerResult := powerResult * a;

    writeln(a, ' в степени ', i, ' = ', powerResult);
  end;
end.

Этот код будет вычислять и выводить все степени числа a от 1 до 10. Вы можете запустить этот код и проверить результаты.