Ну вроде как от компьютера. Информация кодируется двоичным кодом, из нулей и едениц.
var a:array[1..8] of integer;
i: integer;
begin
for i:=1 to 8 do
begin
a[i]:=random(100);
writeln (i,' элемент: ',a[i])
end
end.
Голосовые,визуальные,письменные
Program dsdasd;
var i,y: integer;
begin
y:=0;
For i:=-100 to 100 do
if i mod 10=5 then y:=y+i;
Writeln(y);
<span>end.
у будет равен 500. Считается он так: из чисел -100,-99,-98...98,99,100 остаток 5 при делении на 10 получается у чисел:
5, 15....75,85,95, то есть нужно эти 10 чисел сложить.</span>