Program h2;
const
n=20;
var i:integer;
s:real;
begin
for i:=2 to n do
begin
if (i mod 2=0) then s:=s+1/i;
end;
writeln(s);
end.
Var a, b, c : integer;beginfor b:=15 to 95 doif b mod 3 = 0 thenbegina:=a+1;c:=c+a;end;writeln('Кол-во чисел = ',a);writeln('Сумма чисел = ',c);end.
c++17
#include <iostream>
using namespace std;
int main() {
size_t total = 0;
for(size_t i = 3; i < 13; ++i) {
if (i % 3 > 0) {
cout << i << " ";
++total;
}
}
cout << "\n" << total;
return 0;
}
Const n=9;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n div 2 do
begin
for j:=1 to i-1 do begin a[i,j]:=0; a[i,n-j+1]:=0; end;
for j:=i to n div 2 do begin a[i,j]:=1; a[i,n-j+1]:=1; end;
end;
for i:=n div 2+1 to n do
begin
for j:=1 to n-i do begin a[i,j]:=0; a[i,n-j+1]:=0; end;
for j:=n-i+1 to n div 2 do begin a[i,j]:=1; a[i,n-j+1]:=1; end;
end;
if n mod 2 = 1
then for i:=1 to n do a[i,n div 2 +1]:=1;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:3);
writeln;
end;
end.
Пример:
1 1 1 1 1 1 1 1 1
0 1 1 1 1 1 1 1 0
0 0 1 1 1 1 1 0 0
0 0 0 1 1 1 0 0 0
0 0 0 0 1 0 0 0 0
0 0 0 1 1 1 0 0 0
0 0 1 1 1 1 1 0 0
0 1 1 1 1 1 1 1 0
1 1 1 1 1 1 1 1 1
A-50 Б-30 В-20 Г-5
Один из возможных вариантов кодирования:
А=0 (1 бит) Б=10 (2 бит) В=110(3 бита) Г=111 (3 бита)
Всего: 50*1+30*2+20*3+5*3=50+60+60+15=185 (бит) <---- ответ