Как я тебя понял, языки программирования это C1 и Java
1. Норберт Винер - американский ученый, основоположник кибернетики и теории искусственного интеллекта. У него была идея о необходимости создании единой науки, изучающей процессы хранения и переработки информации, управления и контроля.
2.Клод Шеннон - американский инженер, является основателем теории информации, нашедшие применения в современных высокотехнологических системах связи. Предложил использовать слово бит для обозначения информации.
3. В 1962 году, был придуман Тедом Нельсоном, а опубликован в 1965 году
4. Официально годом рождения WWW можно считать 1989 год. Изобретатель Тим Бернс-Ли
5.Эйлер- ученый математик,астроном, родился в 1707 году в семье базельского пастора Пауля Эйлера
Если считать, что в кодировке unicode для записи символа используется 16 бит (в школьных задачах обычно так и считают), то:
16*K-8*K = 480 ⇒ K = 60
//Код Pascal:
Var
f:text;
a,b,c,D:real;
Begin
Assign(f,'kvur.txt');
Reset(f);
ReadLn(f,a,b,c);
Close(f);
Assign(f,'korni.txt');
Rewrite(f);
D:=b*b-4*a*c;
c:=(-b-Sqrt(D))/(2*a);
a:=(-b+Sqrt(D))/(2*a);
if D >= 0 then
Begin
WriteLn(c,' ',a);
WriteLn(f,c,' ',a)
End
else
Begin
WriteLn('Действительных корней нет.');
WriteLn(f,'Действительных корней нет.')
End;
Close(f);
ReadLn;
End.
Для корректной работы программы файлы должны находиться в одной папке с программой.
Линейная структура на языке<u>Pascal</u>
Нахождение расстояния
var V,S,t:real;
begin
readln(V,t);
S:=V*t;
writeln(S);
end.
Ветвление
var a,b:integer;
begin
readln(a,b);
if (a>b) then writeln('+++') else
writeln('---');
readln;
end.
Цикл
var i:integer;
begin
for i:=1 to 5 do writeln(i);
readln;
end.