Вот программа:
uses Crt;
var i: integer;
begin
ClrScr;
for i:=65 to 90 do
Write(Chr(i):4);
WriteLn; WriteLn;
for i:=97 to 122 do
Write(Chr(i):4);
WriteLn;
ReadLn;
end.
Каждый компьютер подключенный к интернету, имеет свой уникальный IP-адрес.
Доменная система имен присваивает IP-адресу уникальное доменное имя и не у каждого IP-адреса может быть такое доменное имя. Сама по себе доменная система имеет иерархическую структуру: домен 1ого (верхнего) уровня , домен 2ого и т.д.
Транспортный протокол организует разбивание файла в процессе его передачи на пакеты, а при получение "склеивает" его обратно.
Протокол маршрутизации обеспечивает саму передачу файла от компа к компу. Файл(пакеты) в процессе передачи проходят промежуточные сервера в интернете, которые перенаправляют на следующие, постепенно приближаясь от компа отправителя к компу получателя.
1)
var x,y : integer;
begin
read (x);
y := 5 * x * x + 16 * x * x + 18 * x - 29;
write (y);
end.
2)
var a,b : integer;
c,p,s : real;
begin
readln (a,b);c := sqrt(a*a + b*b);
p := a + b + c;s := (a*b)/2;
write ('Периметр равен ',p,', площадь равна ',s, '.');
end.
3)
var a,b,c : integer;
begin
readln (a,b,c);
write ((a+b)/(a-b) + sqrt(c/2));
end.
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:BigInteger;
if not BigInteger.TryParse(ReadlnString('n='),n) then
Writeln('Введенное не является целым числом')
else
Writeln(n.IsPowerOfTwo?'YES':'NO')
end.
<u>Пример</u>
n= 2037035976334486086268445688409378161051468393665936250636140449354381299763336706183397376
YES
1) 8 бит это весит обычно 1 символ
2) 70*8*30*5=8400 бит