9класс

Страница 101-107 §2.4 номер 8, ГДЗ по информатике за 9 класс к учебнику Босовой

Запись вспомогательных алгоритмов на языке Паскаль. Страница 101-107 §2.4 номер 8

страницы 101-107 §2.4 номер 8 учебнику по информатике 9 класс Босова

program z_8;

var

  x, n, i: integer;

  s: longint;//тип длинная целая

function deg(a, b: integer): longint;

var

  j: integer;

  z: longint;

begin

  z := 1;

  for j := 1 to b do

    z := z * a;

  deg := z

end;

begin

  write('введи числа>>');

  readln(x, n);

  s := 0;

  i := 3;

  while i <= n do

  begin

    s := s + deg(x, i);

    i := i + 2;

  end;

  writeln('S=', s)

end.

Сообщить об ошибке
Закрыть