Var i,k:integer;
rez:real;
begin
for i:=10 to 99 do
if (i mod 2)=0 then
begin
k:=k+1;
rez:=rez+i;
end;
rez:=rez/k;
writeln(rez:0:1);
<span>end.</span>
Вариантов масса. первое что приходит на ум взято из "похождения бравого солдата швейка" если не ошибаюсь. там в свою очередь этот способ упоминался как шифрование данных при передаче приказов в войне с наполеоном. суть - командующие перед выступлением договаривались какую книгу использовать(например войну и мир, естественно одного и того издания(конечно же войну и мир при наполеоне еше никто не написал, возьми другую, сча даже лень придумывать)). когда командующие уже разъехались по местам дисколации им высылали шифры, состоящие сплошь из цифр. а цифры в свою очередь это номера страниц и слов в той книге, про которую изначально договорились. таким образом, даже если гонца перехватят, враги получат только набор цифр, не зная книги ключа не возможно понять смысл шифра.
1 уравнение:
15 (8)=13 (10)
100+13=х, х=113 (10)=1110001 (2)
2 уравнение
417 (8)=271 (10)
СА (16)=202 (10)
271+202=473(10)=731(8)
3 уравнение:
753(8)=491 (10)
411 (8)=289 (10)
491-289=202(10)=312 (2)
Var
x:real;
Begin
Write('x = ');ReadLn(x);
if x <= -12 then x:=-x*x
else if (-12 < x)and(x < 0) then x:=x*x*x*x
else x:=x-2;
WriteLn('y = ',x);
End.
Var
a,b,c:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
if (a<b)abd(b<c) then Write('Верно')
else Write('Неверно')
End.
Ответ:
Можно решить через массив Python(list)
f = [1,1,0,1,0,0,1,0,0,0,1,0,0,0,0,1,0,0,0,0,0,1]
i = int(input())
if f[i] == 1:
print("В позиции стоит 1")
elif f[i] == 0:
print("В позиции стоит 0")
else:
print("В позиции нету 1 или 0")
Объяснение: