Program summa;
<span>var a, b, c, s: real; </span>
<span>begin </span>
<span>writeln('Введите числа a, b, c'); </span>
<span>readln(a,b,c); </span>
<span>s:=abs(a)+abs(b)+abs(c); </span>
<span>writeln('s=,'s); </span>
<span>readln; </span>
<span>end.</span>
Нуу... похоже имеется ввиду
Текстовый редактор
Графический редактор
и Музыкальный редактор....
Ответ ясный и очень прост: иллюстрация
Желаю удачи:)
№2)
56(8), 57(8), 60(8), 61(8), 62(8), 63(8), 64(8).
47(16), 48(16), 49(16), 4A(16), 4B(16), 4C(16), 4D(16)
№3)
10111(2)=1*2^4+0*2^3+1*2^2+1*2^1+1*2^0=16+4+2+1=23(10)
156(8)=1*8^2+5*8^1+6*8^0=64+40+6=110(10)
35A(16)=3*16^2+5*16^1+10*16^0=768+80+10=858(10)
№4)
делим последовательно на основание новой системы счисления, остатки от деления выписываем, начиная с конца.
образец:
584:2=292 ост 0
292:2=146 ---- 0
146:2= 73 ---- 0
73:2= 36 ---- 1
36:2= 18 ---- 0
18:2= 9 ---- 0
9:2= 4 ---- 1
4:2= 2 ---- 0
2:2= 1 ---- 0
1:2= 0 ---- 1
584(10)=1001001000(2)
584(10)=1110(8)
584(10)=248(16)
400(10)=110010000(2)
400(10)=620(8)
400(10)=190(16)
№5)
1 0 1 0 1
+ 1 1 0 1
--------------
1 0 0 0 1 0
1 0 1 0
+ 1 0 1 0
-------------
1 0 1 0 0
№6)
14(х)=9(10)
1*x^1+4*x^0=9
x+4=9
x=5
14(5)=9(10)
Для целесообразности вместо корня из 1 заранее используется 1 (поскольку нет нужды вычислять).
--- КОД ПРОГРАММЫ НИЖЕ ---
// Проверено в PascalABC.NET (версия 3.2, сборка 1363)
program zz;
var
n, i, u, d, f, c, ff, cc: integer;
y: real;
procedure GetDiv();
begin
ff := f;
cc := c;
d := 0;
while cc > 0 do
begin
d := d + ff;
ff := ff + 1;
cc := cc - 1;
end;
end;
function Facto(num: integer): integer;
var
ff, fi: integer;
begin
ff := 1;
for fi := 2 to num do
ff := ff * fi;
Facto := ff;
end;
begin
write('n = ');
readln(n);
y := 0;
f := 2;
c := 2;
for i := 1 to n do
begin
u := Facto( n - (i - 1) );
if i = 1 then
d := 1
else
begin
GetDiv();
f := ff + 1;
c := c + 1;
end;
y := y + (u / d);
end;
writeln('y = ', y);
end.
