Вычислить значение суммы членов бесконечного ряда с заданной точностью Е с использованием инструкции цикла while. На печать вывести значение суммы и число членов ряда, вошедших в сумму. Проект – консольное приложение. π=s=4(1-1/3+…+(-1)^n 1/2n+1 +…)

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";

ПЕР
  a, b: РЯД 10 ИЗ ЦЕЛ;
  сч: ЦЕЛ;

УКАЗ
  ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
    a[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 9)) + 1
  КОН;
  ОТ сч := 0 ДО РАЗМЕР(b) - 1 ВЫП
    ЕСЛИ ЧЕТ(сч) ТО
      b[сч] := a[сч] * 2
    ИНАЧЕ
      b[сч] := a[сч] * 3
    КОН
  КОН;
  ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
    Вывод.ЧЦел("%d ", a[сч], 0, 0, 0)
  КОН;
  Вывод.Цепь("^");
  ОТ сч := 0 ДО РАЗМЕР(b) - 1 ВЫП
    Вывод.ЧЦел("%d ", b[сч], 0, 0, 0)
  КОН

КОН Задание.

1) 1200 * 1200 dpi означает, что в квадрате размером 1 дюйм на 1 дюйм сканируется такое количество точек
2) в 1 дюйме = 2,54 см, значит в 10 см содержится 3,94 дюйма (10/2,54 = 3,94)
3) 3,94* 1200 = 4728 пикселей по ширине и по высоте экрана
4) 4728 * 4728 = 22353984 точек в цветном изображении 10 на 10 см
5) 22353984 * 24 = 536495616 бит - информационный объем изображения
Переведем в большие единицы измерения:
536495616 бит / 8 = 67061952 байт / 1024  = 65490,2 Кбайт / 1024 = 64 Мбайта
ответ: полученный файл будет 64 Мбайта.