Норберт Винер — американский учёный, выдающийся математик и философ, основоположник кибернетики и теории искусственного интеллекта. ... В 1945—47 годах у Винера возникла идея о необходимости создания единой науки, изучающей процессы хранения и переработки информации, управления и контроля. Он является основателем теории информации, нашедшей применение в современных высокотехнологических системах связи. ... В 1948 году предложил использовать слово «бит» для обозначения наименьшей единицы информации Термин “гипертекст” был придуман Тедом Нельсоном в 1962 году 1989 год Тим Бернерс-Ли Эйлер- ученый математик, он и придумал графические схемы(круги), обозначающие отношения между множествами.
Леона́рд Э́йлер (нем. Leonhard Euler; 15 апреля 1707, Базель, Швейцария — 7 (18) сентября 1783, Санкт-Петербург, Российская империя) — швейцарский, немецкий и российский математик и механик, внёсший фундаментальный вклад в развитие этих наук (а также физики, астрономии и ряда прикладных наук)[7]. Эйлер — автор более чем 850 работ[8] (включая два десятка фундаментальных монографий) по математическому анализу, дифференциальной геометрии, теории чисел, приближённым вычислениям, небесной механике, математической физике, оптике, , кораблестроению, теории музыки и другим областям[9][10]. Он глубоко изучал медицину, химию, ботанику, воздухоплавание, теорию музыки, множество европейских и древних языков. Академик Петербургской, Берлинской, Туринской, Лиссабонской и Базельской академий наук, иностранный член Парижской академии наук[11].
program tz;
var
n,k,i,nach,pred:integer;
Function SumCifr(l:integer):integer;
var
s:string;
sum,i,j,err:integer;
begin
str(l, s);
sum:=0;
for i:= length(s) downto 1 do
begin
val(s[i],j,err);
sum:=sum+j;
end;
SumCifr:=sum;
end;
Procedure Cifri(nach,pred,k:integer);
var
i:integer;
begin
for i:=nach to pred do
if SumCifr(i)=k then
Write(i, ' ');
end;
begin
writeln('k = ');
readln(k);
writeln('n = ');
readln(n);
if n<5 then
begin
nach:=1;
for i:=1 to n-1 do
nach:=nach*10;
pred:=nach*10-1;
Cifri(nach,pred,k)
end
else
begin
nach:=10000;
pred:=32767;
Cifri(nach,pred,k);
end;
end.