Флешка, жесткий диск, дискета, диски.
Нет вася не прав так как в кодировании получилось бы 3 бита
//Pascal ABC.NET v3.0 сборка 1111
Const
n=5;
Var
ar:array[1..n] of integer;
i,k:integer;
begin;
randomize;
k:=0;
writeln('Array:');
for i:=1 to n do
begin;
ar[i]:=random(10);
write(ar[i]:4);
if not odd(ar[i]) then inc(k);
end;
writeln;
write('Res=',k);
end.
Var
i,sum,k:integer;
mas: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
mas[i]:=random(-10,10);
write(mas[i], ' ');
end;
writeln(' ');
for i:=1 to 10 do begin
if mas[i] mod 3 = 0 then begin
k:=k+1;
sum:=sum+mas[i];
end
end;
writeln('Числа кратные 3 встречаются ',k,' раз. И их сумма = ',sum);
end.
// 30° = π/6, 60° = π/3
Program goldobin5;
uses crt;
begin
clrscr;
writeln('Y=',(sqrt(sin(pi/6))+sqrt(abs(32-6*8)))/(sqr(sqr(sin(pi/3)))));
end.
Результат:
Y= 8.368189833220529e+00