Винер (Wiener) Норберт (26.11.1894, Колумбия, Миссури, — 19.3.1964, Стокгольм) , американский учёный. К 14 годам изучил высшую математику, в 18 лет стал доктором философии Гарвардского университета. С 1919 преподаватель, с 1932 профессор Массачусетского технологического института. Занимался математической логикой и теоретической физикой. В 1920—30-е гг. получил известность как математик работами по теории потенциала, гармоническим функциям, рядам и преобразованиям Фурье, тауберовым теоремам, общему гармоническому анализу.
<span>В 1945—47 годах у Винера возникла идея о необходимости создания единой науки, изучающей процессы хранения и переработки информации, управления и контроля. Для этой науки Винер предложил название кибернетика, получившее общее признание. Норберту Винеру принадлежит, несомненно, первое место в пропаганде значения кибернетики во всей системе человеческих знаний.</span>
Var
a: array [1..10] of integer;
i, n: byte;
begin
Randomize;
for i:=1 to 10 do
begin
a[i]:=random(100)-50;
n:=abs(a[i] mod 10);
if (n = 4) or (n = 8) then write(a[i]:4);
end;
readln;
<span>end.</span>
8бит=1байт; 1кбайт=1024байт 1024*1024*8=<span>8388608</span>
Найти среднее арифметическое всех целых чисел от 1 до 1000.
3.Пользователь вводит две границы диапазона, вывести на экран все числа из этого диапазона. Предусмотреть, чтобы пользователь мог вводить границы диапазона в произвольном порядке.
вывести все четные числа из диапазона.
вывести все нечетные числа из диапазона.
вывести все числа, кратные семи
4.Пользователь с клавиатуры вводит числа. Посчитать их сумму и вывести на экран, как только пользователь введет ноль.
ЕСЛИ a > 1 И a <= 50 ТО ...