Var
i,n:integer;
IsOdd,IsEven:boolean;
begin
IsOdd:=false; IsEven:=false;
Write('Введите три числа: ');
for i:=1 to 3 do
begin
Read(n);
if n<>0 then
if (n mod 2)=0 then IsEven:=True
else IsOdd:=True
end;
Write('Среди введенных чисел ');
if IsOdd then Write('есть нечетное')
else Write('нет нечетных');
if IsEven then Write(' и есть четное')
else Write('и нет четных')
end.
<em><u>Тестовое решение:</u></em>
Введите три числа: 5 8 3
Среди введенных чисел есть нечетное и есть четное
Ответ:
На Python:
x = 1
y = x ** 2 + 2 * x + 5
print(y)
Объяснение:
Ты бы хоть попробовал сам, ничего же сложного.
По формуле <span>N=2i</span> находим 64=<span>2i</span>, 26=<span>2i</span>,i=6. По формуле I=K*i I<span>=</span>1 977 × 6 = 11 862
#Python 3.X
x = int(input())
print(str(x % 1)[2])
25 байт = 25*8=200 бит
30 кб = 30* 1024 = 30720 байт
9 мб = 9*1024*1024=9437184 байт
6 кб = 6*1024*8=49152 бит
288 бит = 288/8=36 байт
5242880 тб = 5242880 *1024*1024*1024=5242880*2^30 кб