Если в двоичном коде то
1101100
Мышь, тачпад и трекбол выполняют функцию комп.мыши, получается, что лишнее - клавиатура
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
Поскольку повтор вопроса, будет повтор ответа)
program p1;
var
n,m,s:real;
i:integer;
a:array[1..7] of real;
begin
write('Write n: '); readln(n);
write('Write m: '); readln(m);
writeln('Enter the weight of things: ');
for i:=1 to 7 do
read(a[i]);
s:=0;
for i:=1 to 6 do
s:=s+a[i];
if s>20
then
begin
s:=(s-20)*n;
writeln('For luggage: ',s:0:2);
end
else
writeln('For luggage: ',s:0:2);
if a[7]>5
then
begin
a[7]:=(a[7]-5)*m;
writeln('For hand luggage: ',a[7]:0:2);
end
else
writeln('For hand luggage: ',a[7]:0:2);
readln
end.
var
i:integer;
begin
for i:=60 to 70 do write (chr(i),' ');
readln;
end.