//Pascal
//Массив заполняется случайными числами от 1 до 10
var
A: array [1..10] of byte;
i: byte;
Sum: real;
begin
randomize;
for i := 1 to 10 do
begin
A[i] := random(9)+1;
write(A[i]:3);
Sum := Sum + A[i] + 2;
end;
writeln;
for i := 1 to 10 do writeln(Sum/sqrt(abs(A[i])):0:2);
writeln;
end.
Program yeah;vara,b:integer;beginwriteln('введите числа ');b:=0;repeatread(a);if (a mod 10<>6) and (a div 10<>6) thenbegin b:=b+a;end;until a=0;writeln(b);end.
У дельфинов наиболее развит слух
Символы, носители информации
3 Мбайт=25165824 Бит
256 Бит=0,031 Кбайт
98678256378 Бит=12045685,59 Кбайт
2 Мбайт=16777216 Бит
4 Мбайт=33554432 Бит