Program znanija;var a: integer;begin write('Введите трехзначное число: '); readln(a); if (a>99) and (a<1001) then writeln('Чило: ',a,' трехзначное') else writeln('Чило: ',a,' не трехзначное');end.
Var
a: array [4..9] of longint;
q:longint;
begin
for q:=4 to 9 do
begin
a[q]:=random(10)+1;
write(a[q],' ');
end;
writeln();
for q:=4 to 9 do
begin
if a[q]<5 then a[q]:=a[q]-1;
write(a[q],' ');
end;
end.<span>
</span>
5 байт=40 бит
2000 бит<1 Кбайт
300 Кбайт>0.25 Мбайт
12288 бит=1536 байт=1.5 Кбайт
х=2 Мбайт
1) возгорание (перегрев устройства)
2) удар током (ногами провода дрык, дык)
3) убийство (динозаврик выскочит на тебя из монитора в игре)