9класс

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

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

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

program z_7;

var

  n, i: integer;

  s: longint;

function fa(a: integer): longint;

begin

  if a = 1 then fa := 1 else

    fa := a * fa(a - 1);

end;

begin

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

  readln(n);

  s := 0;

  for i := 1 to n do

      s := s + fa(i);

   writeln('Результат = ', s)

end.

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