Program TaskA;
Var i, n: Integer;
Begin
Randomize;
n := Random(10);
For i := 1 To n Do
WriteLn(Random, ' ');
End.
Program TaskB;
Var i: Integer;
Begin
Randomize;
For i := 1 To 10 Do
WriteLn(Random, ' ');
End.
Program TaskC;
Var i: Integer;
Begin
Randomize;
For i := 1 To 10 Do
WriteLn(Random(11), ' ');
End.
Program TaskD;
Var i: Integer;
Begin
Randomize;
For i := 1 To 10 Do
WriteLn(Random(10), ' ');
End.
Program TaskE;
Var i: Integer;
Begin
Randomize;
For i := 1 To 10 Do
WriteLn(Random(20 + 10 + 1) - 10, ' ');
End.
Program TaskF;
Var i: Integer;
Begin
Randomize;
For i := 1 To 10 Do
WriteLn(Random(122 + 97 + 1) - 97, ' ');
End.
Program TaskG;
Var i, sum: Integer;
BeginRandomize;
For i := 1 To 10 Do
sum := sum + Random(11);
WriteLn(sum);
<span>End.
</span>
<span><span>426192</span><span>-42618213092</span><span>1-21308106542</span><span>1-1065453272</span><span>0-532626632</span><span>1-266213312</span><span>1-13306652</span><span>1-6643322</span><span>1-3321662</span><span>0-166832</span><span>0-82412</span><span>1-40202</span><span>1-20102</span><span>0-1052</span><span>0-422</span><span>1-21</span><span>0
</span></span>
512 пикс * 256 пикс * = 131072 пикс / 8 / 1024 = 16 кибипикс.
64 кбайт / 16 кбайт = 4 бит на цвет.
2^4 = 16 цветов поместятся.
Var s,k,m:integer;
begin
write('s = ');
readln(s);
k:=s div 800;
m:=s mod 800;
writeln('Кругов: ',k,' и ещё метров: ',m);
end.
Пример:
s = 5020
Кругов: 6 и ещё метров: 220