Program test;
var
a:array[1..5] of integer;
i:byte;
begin
for i:=1 to 5 do
Readln(a[i]);
Write('Получившийся массив:');
for i:=1 to 5 do
Write(' ',a[i])
end.
Иметь действующего персонажа.
Задать действие персонажу.
64 Мбайт = 64*1024 Кбайт = 64*1024*1024 байт = 64*1024*1024*8 бит =
2^6*2^10*2^10*2^3 бит = 2^29 бит
16 = 2^4
16^(4*x) = 2^29
4*x = 29 ⇒ x=29/4 = 7,25
Это информация, представленная в виде символов(мелких картинок) или большого изображения.
Var S,K,A:integer;
Begin
S:=0;
K:=0;
A:=50;
Repeat
S:=S+A;
K:=K+5;
A:=A+1;
Until A>150;
WriteLn('SR = ',2*S);
WriteLn('K = ',K);
End.