Var a:integer;
b,c:string;
begin
b:='*';
c:='';
for a:=1 to 3 do begin
c:=c+b;
writeln(c);
end;
end.
<span> </span>
Виды информации(многоуровневый список, 2 уровня в данном случае):
1текстовая
1.1книги
1.2журналы
1.3статьи в интернете
2звуковая или аудио
2.1живая речь
2.2песни
2.3аудиокниги
Вообще-то 7 байт, символы это не часть алфавита
Var
A,r1,r2,r3,r4:integer;
Begin
For A:= 1000 to 9999 do
Begin
r1:=A div 1000;
r2:=(A div 100) mod 10;
r3:=(A div 10) mod 10;
r4:=A mod 10;
if (r1<>r2)and(r1<>r3)and(r1<>r4)and(r2<>r3)and(r2<>r4)and(r3<>r4) then
Write(A,' ')
End;
End.
2048=2^11 1536 = 1,5*1024=1,5*2^10
F = 3*2048*1536 =
=3*1,5*2^10 *2^11 (байт) =4,5*2^11 Кбайт =4,5 *2 Мбайт =9 Мбайт