Пишешь свое мнение. Например: в сети есть совершенно все, что нам нужно. Люди в интернете делятся своим опытом, отвечают на вопросы, создают сайты и электронные словари. Благодаря интернету, мы можем общаться с людьми, находить новые знакомства и даже отношения.
Ответ:
program Loto;
var
L: array [1..50] of Integer;
a: array [1..3] of Integer;
i, j, n: Integer;
b: Boolean;
begin
for i := Low (L) to High (L) do
L [i] := i;
Randomize;
for i := 1 to 3 do begin
repeat
n := Random (51) + 1;
until L[n] <> 0;
a [i] := L [n];
L [n] := 0;
end;
for i := 1 to 3 do
Write (a [i], ' ');
ReadLn;
end
Объяснение:
сделана проверка чтобы 3 числа не совпадали друг с другом
Program Zadacha;
Var sum, raz, pr, ch, x, y, z: real;
Begin
randomize;
x:=random(50);
y:=random(50);
z:=random(50);
sum:= x + y + z;
Writeln('Сумма = ',sum:4:2);
raz:= x - y - z;
Writeln('Разность = ',raz:4:2);
pr:= x * y * z;
Writeln('Произведение = ',pr:4:2);
ch:= x/y; ch:= ch/z;
Writeln('Частное = ',ch:4:2);
End.<span> </span>
1 кбайт=1024 байт
------------------------------
1 байт---8 бит
1024 байт----X бит
x=8192 бит, т.е. 1 кбайт=8192 бит
------------------------
1 кбайт----8192бит
1/16 кбайт--- Y бит
Y=512 бит