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>
3 буквы сорян может я не так понял как ты имел в виду
16 бит - 2 байта. 2*1240*480=1190400 байт 1190400/1024=1162,5 КБайт
32=2^5
256=2^8 количество бит на цвет уменьшилось на 3, значит в (2^3 = 8) уменьшился объем в оперативке
//PascalABC.Net 3.2
begin
var n:=readinteger('Число апельсинов: ')*150;
var m:=readinteger('Число яблок: ')*100;
if m=n then write('Что угодно') else
if m>n then write('Лучше взять яблоки') else write('Лучше взять апельсины');
end.
Нужно держать голову прямо и что бы расстояние между компьютером и головой должно быть 90-80 см ,для того что бы не потерять зрение , спина должна быть прямая и не сутулая что бы не потерять осанку и не нарушить позвоночьник