К=8, потому, что каждое следующее число делится на 2.
Program Maz; var a,b:integer; rez:real; p:char;begin write('Введите а = ');readln(a);write('Введите символ: '); readln(p); write('Введите b = '); readln(b); case p of '+': rez:=a+b; '-': rez:=a-b; '*': rez:=a*b; '/': rez:=a/b; end; writeln(a,p,b,'= ',rez); end.
Эмм, ну 118+1110=1228
теперь чтобы из десятичной перевести в двоичную надо все делить на 2
1228:2=614 ост0
614:2=307 ост0
307:2=153 ост1
153:2=76 ост1
76:2=38 ост0
38:2=19 ост0
19:2=9 ост1
9:2=4 ост1
4:2=2 ост0
2:2=1 ост0
1:2=0 ост 1
пишем результат с конца, получается 10011001100
Var
S:real;
n:integer;
Begin
S:=0;
Write('n = ');
ReadLn(n);
For n:= 1 to n do
S:=S+n/(n+1);
WriteLn('S = ',S)
End.
Var
s:string;
i,n:integer;
begin
Write('Исходное слово: '); Readln(s);
for i:=Length(s) downto 1 do
if s[i] in ['а','А'] then Delete(s,i,1);
Writeln('Результат: ',s)
end.
<em><u>Тестовое решение:</u></em>
Исходное слово: Абракадабра!!!
Результат: бркдбр!!!