1. исходное число х
2.х+10
3. если (х+10)>20 то (х+10)-3
если (х+10)<20 то (х+10)+3
4.((х+10)+-3)+2
5. ответ:
например
1. число 5
2. 5+10=15
3.15+3=18
4.18+2=20
5. ответ 20
ИЛИ
1. число 15
2. 15+10=25
3. 25-3=22
4.22+2=24
5. ответ:24
const g = 5; v = 3;
var a: array[1..g,1..v] of integer;
i,j,maxj,minj,p:integer;
begin
writeln('Массив: ');
for i:=1 to g do
begin
for j:=1 to v do
begin
a[i,j]:=Random(101);
write(a[i,j]:4)
end;
writeln
end;
for i:=1 to g do
begin
maxj:=1;
minj:=1;
for j:=1 to v do
begin
if a[i,j]>a[i,maxj] then maxj:=j;
if a[i,j]<a[i,minj]then minj:=j;
end;
p:=a[i,maxj];
a[i,maxj]:=a[i,minj];
a[i,minj]:=p;
end;
writeln;
writeln('Преобразованный массив: ');
for i:=1 to g do
begin
for j:=1 to v do write(a[i,j]:4);
writeln
end;
end.
Если используется однобайтовая кодировка, то 43 байта или 344 бита.
Pascal:
program z1;
var i, k, n, ch:integer;
begin
n:=0;
ch:=0;
for i:=1 to 15 do
begin
writeln('Input number:');
readln(k);
if(k mod 2=0) then
ch:=ch+1
else
n:=n+1;
end;
writeln('Нечетных было ', n);
writeln('Четных было ', ch);
end.
1. символ алфавита занимает
бит, значит объем (информационный) текста равен 150*6=900 бит
2. 400/100 бит на символ = 4 бита на символ. Всего различных символов
. ответ 16