n = int(input())
print ('The next number for the number', n,'is',n+1)
print ('The previous number for the number', n,'is',n-1)
1 байт = 8 бит
1 кбайт = 1024 байт
10 * 1024 * 8 = <span>81920</span>
<span>10 кбайт = 81920 бит</span>
10100(2)-1*2^4+0*2^3+1*2^2+0*2^1+0*2^0
Var
i: integer;
d, s: real;
begin
d := 10;
s := d;
for i := 2 to 7 do
begin
d := d * 1.1;
s := s + d;
end;
writeln(s);
end.
Блок-схему не умею. Но эта программа хоть работает и правильно
<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal;
var t:=SeqGen(30,x,y->y*x).Select(y->sin(y)).Any(y->y<0);
Writeln(t);
end.
<u>Примеры</u>
0.73
False
1.18
True