Var n,i,s:integer;
begin
write('n = '); readln(n);
s:=0;
for i:=1 to n do
if i mod 2 =0 then s:=s-i else s:=s+i;
writeln('s = ',s);
end.
Пример:
n = 10
s = -5
Все просто. если сообщение из 20 символов это 100 бит, значит один символ это 100/20 = 5 бит. Размер алфафита считается по формуле 2 в степени размера символа. 2 в степени 5 = 32
Размер алфавита = 32 символа
Var n,k,s:integer;
begin
Writeln ('вводи числа, по окончанию введи 9999');
while n<9999 do
begin
readln (n);
if (n>0) and (n mod 10=6) then
begin
inc(k);
s:=s+n;
end;
end;
writeln ('кол-во=',k);
writeln ('сумма=',s);
end.
надеюсь разберетесь что тут к чему, этот кусок кода нужно вставить после строки for i := 1 to n do writeln(r[i]); {Найденный массив}, а после этого вывести измененный массив, сами допишите. Если что-то не понятно смотрите текстовый файл во вложении.
#include <iostream>
using namespace std;
int main()
{
int n;
double t = 1;
cout << "input n: ";
cin >> n;
for (int i = 1; i <= n; i++) {
t = t * (((2 * i) - 1)) / i;
}
cout << t << endl;
}
<u>Проверка:</u>
1/1 * (3/2) * (5/3) = 2.5
1/1 * (3/2) * (5/3) * (7/4) * (9/5) = 7.87500