Var i,s,k:integer;
begin
i:=11;
s:=0;
k:=0;
repeat
s:=s+i;
i:=i+1;
k:=k+1;
until i>20;
write ('Cреднее арифметическое чисел ОТ 11 ДО 20 равно: ', s/k)
end.
<em>
Реализована формула</em>
<em>
// PascalABC.NET 3.2, сборка 1485 от 15.06.2017</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
Write('Введите х и у: '); var (x,y):=ReadReal2;
var s:=Power(Cos(Power(Pi*y/3-x,14)),6)+Sin(y*y*y);
Writeln('s=',s)
end.
<u>Пример</u>Введите х и у: 2.175 -1.4
s=-0.335572582839361
Программа на паскале:
program square;
var a,s:integer;
begin
write('a = ');
readln(a);
s:=a*a;
writeln('s = ',s);
end.
Пример:
a = 5
s = 25
Каждый символ занимает 16 бит.
16 * 64 * 256 = 264144 бит = 32768 байт = 32 кбайт
1. 0.5 кб = 500 байт они одинаковы.
2. 20кб = 160000 бит. 1 стр = 32*64 = 2048 симв в странице. 160000/2048 = 78 страниц (но я не уверен )
3. 3 кбайта= 3072 байта, умножим на 8 = 24576 бит, делим на 6144 символа, получаем 4 бита на символ, то есть 2 в степени 4 = 16 символов содержит алфавит