<h2>1 терабайт= 1024 гигабайт</h2><h2>1 гигабайт=1024 мегабайт </h2><h2>1 мегабайт=1024 килобайт</h2><h2>1 килобайт=1024 байт</h2><h2>1 байт=8 бит</h2>
1) винчестер
2) джойстик
3) клавиатура
4) монитоо
5) дисковод
6) дисплей
7) плоттер
8) принтер
9) модем
10) дигитайзер
11) сканер
12) процессор
13) мышь
14) трекбол
1)
for i := 1 to n do
read(a[i]);
for i := 1 to n do
if (a[i] div 100 = 0)and(a[i] div 10 > 0) then
write(a[i], ' ');
2)
for i := 1 to n do
read(a[i]);
for i := 1 to n do
if (a[i] mod 2 = 0) then
write(a[i], ' ');
3)
for i := 1 to n do
read(a[i]);
for i := 1 to n do
if (a[i] mod 2 = 0)then
a[i] := a[i]*2
else
a[i] := a[i] - 1;
for i := 1 to n do
wirte(a[i]);
Function reverse(s:string):string;
var s1:string;
i:integer;
begin
for i:=1 to length(s) do
s1:=s[i]+s1;
reverse:=s1;
end;
var s:string;
begin
readln(s);
s:=reverse(s);
writeln(s);
<span>end.</span>