Сканер - устройство ввода информации, остальные вывод информации <span />
Var i:integer;
begin
writeln('Дюймы См');
for i:=1 to 10 do
writeln(i:3,' ',2.54*i:5:2);
end.
Результат:
Дюймы См
1 2.54
2 5.08
3 7.62
4 10.16
5 12.70
6 15.24
7 17.78
8 20.32
9 22.86
10 25.40
1. 262144 бит = 262144/8 байт = 32768 байт = 32768/1024 Кбайт = 32 Кбайт<span>
2. 16384 бит = 16384/8 байт = 2048 байт = 2048/1024 </span>Кбайт = 2 Кбайт<span>
3. 131072 бит = 131072/8 байт = 16384 байт = 16384/1024 </span>Кбайт = 16 Кбайт<span>
4. 1/4 Кбайт = 1024/4 байт = 256 байт = 8*256 бит = 2048 бит
5. 227 бит = 227/8 байт = 227/(8*1024) Кбайт = 227/(8*1024*1024) Мбайт </span>≈ 0,000027 Мбайт<span>
6. 10 Кбайт = 10*1024 байт = 10240 байт = 10240*8 бит = 81920 бит = 81920/1000 Кбит = 81,92 Кбит
7. 2048 бит = 2048/1000 Кбит = 2,048 Кбит
8. 2 Кбит = 2*1000 бит = 2000/8 байт = 250 байт</span>
Read(a);
read(b);
if (a mod 10) = (b mod 10) then writeln('Верно') eslse
writeln('Неверно');
Program pr1;
var x,y, nod:integer;
begin
readln(x,y);
repeat
if x > y then x:=x mod y
else y:=y mod x
until x*y=0;
nod:=x+y;
writeln('НОД=', nod);
<span>end.
program pr2;
var i,n,sum:integer;
begin
readln(n);
sum:=1;
for i:=1 to n do
if i mod 2 = 0 then inc(sum,i);
writeln(sum);
<span>end.</span></span>