var i:integer;
begin
for i:=15 to 90 do if i mod 15 = 0 then write(i,' ');
end.
А) 5120;40960
б) 1536байт; 1,5Кб
в)1024байи;1кб
г)1636кг;3/2048гб
д)512;4096
1.Сообщения, осведомляющие о положении дел, о состоянии чего-н.
Var
a:array[1..10] of integer;
i,c:integer;
Begin
for i:= 1 to 10 do Begin
write('Введите ',i,' - ый элемент массива ');
readln(a[i]);
End;
Write('Индексы элементов, больших 5 - (');
for i:= 1 to 10 do
if a[i]>5 then Begin
write(i,' '); c:=1;
end;
if c=0 then write('Таких нет)') else write(')');
end.
1)N=k^I k=8; i=2; => N=8^2=64
2)V=K(строк)*К(страниц)*К(символов)*i
выражем К страриц
к=(20*1024*8)/(40*64*8)=1024/128=8 страниц