111011101=477,
1011111000 = 760,
111110100 = 500,
110001111 = 399,
1011101110 = 750,
1111101011 = 1003,
<span>110100110 = 422.</span>
Var n,i:integer; s:real;
begin
readln(n);
s:=0;
for i:=0 to n do s:=s+1/(2*i+1);
writeln('s = ',s);
end.
Пример:
5
<span>s = 1.878210678210678e+00</span>
Var A:integer;
Begin
WriteLn('Введи двузначное число');
Read(A);
if (A mod 10 + A div 10) mod 2 = 0 then Write('Сумма цифр чётная')
else Write('Сумма цифр НЕчётная')
End.
Ответ:
204 800 бит
Объяснение:
16×32=512строк
512×25=12 800 символов
12 800×16=204 800 бит
если я правильно понял , что тебе нужно то ответ правильный (надеюсь)
Он есть где?
Проверь название файла. Именно файла. Вдруг опечатка.
Попробуй ввести полный путь в тексте программы.
Посмотри есть ли русские буквы в пути к файлу.
Если файл *.txt лежит не рядом с самой программой, положи его в папку с программой.
<span>Или просто положи его в корень C и укажи путь в коде.</span>