Составит программу для вычесления 10! по формуле n! =1*2**n​

1×2×3×4×5×6×7×8×9×10=3628800

1) Множество компьютеров, связанных каналами передачи информации и находящихся в пределах одного помещения, здания, называется:

Г) локальной компьютерной сетью;

2) Глобальная компьютерная сеть - это:

Б) совокупность локальных сетей и компьютеров, расположенных на больших расстояниях и соединенных с каналов связи в единую систему;

3) Наибольшие возможности для доступа к информационным ресурсам обеспечивает подключения к Интернету;

В) постоянное соединение по оптоволоконному каналу;

4) Сетевой протокол - это;

А) набор соглашений о взаимодействиях в компьютерной сети;

6) Моделирование - это:

А) процесс замены реального объекта (процесса, явления) моделью, отражающей его существенные признаки с точки зрения достижения конкретной цели;

7) Модель - это:

В) материальный или абстрактный заменитель объекта, отражающий его пространственно-временные характеристики;

8) Натурное моделирование - это;

В) моделирование, при котором в модели узнается какой - либо отдельный признак объекта-оригинала;

9) Математическая модель объекта - это:

А) совокупность записанных на языке математики формул, отражающих те или иные свойства объекта-оригинала или его поведение;

10) Рисунки, карты, чертежи, диаграммы, схемы, графики представляют собой:

Г) графические информационные модели;

1.
var 
  a, s, cifra: integer;
begin
  s:= 0;
  writeln('Введите натуральное число');
  readln(a);
  while a > 0 do
  begin
    cifra:= a mod 10;  //Определяем очередную цифру числа
    s:= s + cifra * cifra * cifra;  //Прибавляем к значению s цифру в кубе
    a:= a div 10;  //целочисленное деление числа на 10 (отсекаем текущую цифру)
  end;
  writeln('Сумма кубов цифр числа:  ', s);
end.
2.
var
  a: integer;
begin
  writeln('Введите натуральное число');
  readln(a);
  while a > 9 do  {Определяем первую цифру числа путем отрезания цифр числа, пока число не станет однозначным. Полученное число и будет первой цифрой}
    a:= a div 10;
  writeln('Первая цифра числа:  ', a);
end.