Const
n=10;
var
a:array[1..n]of integer;
i:integer;
begin
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]>5 then
a[i]:=100;
for i:=1 to n do
write(a[i]:4);
end.
1)
Program graph1;
uses graph;
var gd,gm,error,a,b: integer; x,y:real;
begin
gd:=detect;
initgraph(gd,gm,'');
error:=graphresult;
if error <> grOk then begin
write ('Ошибка: ', grapherrormsg(error));
readln; halt;
end;
while(x<=100) do begin
y:=cos(x*x);
a:=round(x*100);
b:=round(y*100);
PutPixel(a,b+300,15);
x:=x+0.001;
end;
readln;
closegraph;
end.
closegraph;
end.
2)
Program graph1;
uses graph;
var gd,gm,error,a,b: integer; x,y:real;
begin
gd:=detect;
initgraph(gd,gm,'');
error:=graphresult;
if error <> grOk then begin
write ('Ошибка: ', grapherrormsg(error));
readln; halt;
end;
while(x<=100) do begin
y:=1/(x*x+1);
a:=round(x*100);
b:=round(y*100);
PutPixel(a,b+300,15);
x:=x+0.001;
end;
readln;
closegraph;
end.
<span>
</span>
var
A: array [1..3] of Integer;
i, imin, imax, imid: Integer;
begin
Write('Введите 3 целых различных числа: ');
Readln(A [1], A [2], A [3]);
if (A [1] = A [2]) or (A [2] = A [3]) or (A [1] = A [3]) then begin
Writeln ('Имеются одинаковые числа!');
Exit;
end;
imin := 1;
imax := 1;
for i := 2 to 3 do begin
if A [i] < A [imin] then
imin := i;
if A [i] > A [imax] then
imax := i;
end;
for i := 1 to 3 do begin
if (i <> imin) and (i <> imax) then
imid := i;
end;
Writeln ('Произведение максимального и среднего числа = ' + IntToStr (A [imax] * A [imid]));
end;
500 байт = 500*8бит=4000бит<span>5 Кб= 5/1024 Мб
87 Гб= 87*1024*1024*1024 байт=93415538688
7 Мб = 7*1024*1024*8 бит =58720256 бит
46 байт = 46/1024/1024Мб=0,0000438690185546875
700000 бит = 700000/8/1024=85,44921875 Кб
№2
32=2^i, следовательно i=5 бит
Тогда объем информации будет равен 3*25*80*5=30000 бит=3750 байт
№3
32=2^i i= 5 бит; Объем 1 сообщения 5*80=400 бит
64=2^i i=6 бит; Объем 2 сообщения 6*70=420 бит
№4
Всего в письме 30*48=1440 символов
900 байт=7200 бит
Информационный вес одного символа 7200бит/1440сим=5 бит
Мощность алфавита 2^5=32 символа.
№5
64=2^i=2^6
Следовательно i=6 бит
№6 решение аналогично №5</span>
#include <iostream>
#include <cmath>
int main()
{
int x;
std::cin >> x;
std::cout << std::abs(x - 2) << std::endl;
return false;
}
