Извини, на паскале не могу (( Только Python или C++ ((
На Python (он наверно ближе):
n=int (input ())
for i in range (1, n):
____if i÷2!=0:
________print (i)
Я обозначала "_" пробел
а) 1; 11; 111; 1111; 11111; 111111; (к каждому числу прибавляем по единице)
б) 10; 100; 1000; 10000; 100000; (к каждому числу прибавляем нуль)
в) 101; 111; 101; 111; 101; 111; 101; 111; (здесь просто повторяются два числа,а именно 101 и 111)
1)Program A1;
var
a,i:integer;
begin
a:=0;
for i:=1 to 100 do if (i mod 5=0)and(i>0) then a:=a+i;
writeln(a);
end.
2)Program A2;
var
a: array [1..10,1..10] of integer; b,i,j:integer;
begin
writeln('Vvedi massiv');
for i:=1 to 10 do for j:=1 to 10 do readln(a[i,j]);
b:=0;
for i:=1 to 10 do b:=b+a[i,i];
writeln(b);
end.
6144 байт = 49152 бит
49152/12288= 4 бит информационный вес одного символа
N=
символов в алфавите