Составить программу на языке программирования turbo pascal и зарисовать блок-схему для следующей : запросить некоторое целое число а, если вдруг окажется, что точно больше 10, то вывести "слишком много! ", а если меньше 10, то удвоить данное число

Var a: real; begin     write('введите число: ');     read(a);     if a > 10 then       writeln('слишком много! ')     else       a : = a * 2; end.

Уэтой есть более простой способ решения: заметим,что мы складываам подрят идущие нечетные числа,при этом разность между двумя соседними числами будет p = 1 + 3 + 5 + 7 + (2n - 1) - сумма членов арифметической тогда p = (первый член + последний член)/2 × колво ,чтро первый член будет 1,а последний 2n - 1, и колво этих членов = n,то р = (1 + 2n - 1)/2×n=2n/2×n = n^2 значит сумма первых n членов данной прогрессии будет равна n^2 программа: var n: integer; begin readln(n); writeln(n*n); end. если уж делать эту же программу через цикл while,то: var n,p,t: integer; begin readln(n); t = 1; p = 0; while (t < 2*n - 1) do begin p = p + t; t = t + 2; end; writeln(p); end.

1) сначала сигнал снимается каким-либо датчиком (фотоэлементы для света, микрофоны для звука и т.д.) и преобразуется в аналоговый сигнал. этот сигнал подается на аналого-цифровой преобразователь (ацп), который производит оцифровку. оцифрованный сигнал сохраняется в виде двоичного кода на цифровом носителе, в необходимом формате.

2) уровни цвета измеряются с цветочувствительной матрицы (фотоматрицы) - набора из точечных датчиков цвета и освещения. полученные уровни на ацп и кодируются в зависимости от его разрешающей способности (глубина цвета) и количества точек на матрице (разрешение изображения).

3) звук снимается с аналогового микрофона, полученный сигнал передается на ацп и кодируется с определенной частотой и разрешением дискретизации.