var
a : integer;
begin
readln (a);
if a > 0 then
a := a +1;
if a <0 then
a := a-2
if a= 0 then
a := 10;
writeln (a);
end.
Поставь мне благодарность и пять звёзд)))) и тогда я напишу ответ
1) program _1;
var i, n: integer; sym:real;
begin
readln (n); p:=1;
for i:=2 to n do
p:=p*((i+1)/(i+2));
write(p:8:3);
end.
5) program _5;
var k, i: byte; s:real;
begin
readln(k);
for i:=1 to k do
s:=s+1/(i*i*i);
write(s:8:3);
end.
Тут не возможно ничего розшифровать потому что тут ничего не правильно
125(10)= 1111101(2),я бы фото кинула ,но с телефона хз как))