2^12 бит = 4096 бит. в одном байте - 8 бит. 4096 бит = 512 байт. в 1 Кбайте - 1024 байта => 2^12 бит = 1/2 Кбайт
<-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_->
16Гбайт = 16*1024Мбайт=16*1024*1024Кбайт=16*1024*1024*1024байт
<-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_->
128 Мбайт = 128/1024 Гбайт
Var a,b,c:integer;
begin
a:=random(10);
writeln('a = ',a);
b:=random(10);
writeln('b = ',b);
c:=random(10);
writeln('c = ',c);
writeln('Среднее арифметическое = ',(a+b+c)/3);
end.
Пример:
a = 4
b = 2
c = 9
Среднее арифметическое = 5
Program p1;var n:integer;begin Writeln ('Введите число');Readln (n);if n>0 Then a:=(n*3) and (n mod 2=0) Else; Writeln (n);Readln;End.
не точно нужно дополнить,но что-то типо этого
Cls
rem a
let sum=0
let sred=0
let n=0
let i=1
input "n=";n
for i=1 to n step 1
input b
sum=sum+b
next n
sred=sum/n
print "Sred = ";sred
end