Шишкин - это русский художник. Знаменитая картина "Утро в лесу".
Sub pp()n1 = 1k1 = 20n2 = 1DoCells(n2, 2) = Cells(n1, 1)n2 = n2 + 1Cells(n2, 2) = Cells(k1, 1)n2 = n2 + 1k1 = k1 - 1n1 = n1 + 1Loop Until n1 > 10End Sub
31=2^4+2^3+2^2+2^1+2^0=11111
52=2^5+2^4+2^2=110100
25|12|6|3|1|0
——————
1__0_0_1_1_ ; 25=11001
34|17|8| 4 |2| 1 |0
——————————
0_1__0_0_0_1
34=100010
Const n=20;
var sum:integer;
i:byte;
begin
sum:=0;
i:=1;
repeat
sum := sum + i;
i := i+1;
until (i=n);
end.
1.
Var n,S,k:integer
Begin
Read(n);
for i:=1 to n do
Begin
Read(k);
if k mod 3 = 0 then
S:=S+k;
End;
Write(S);
End.
2. var S,k,n:integer;
begin
Read(n);
While n>=0 do
Begin
k:=n mod 10;
if k mod 2=0 then
S:=S+k;
n:=n div 10;
End;
Write (S);
End.
3. var i, a, b, c:integer;
Begin
read(a);
read(b);
read(c);
Fit i:=1 to b do
Begin
If I mod c=0 then write (i);
End;
End.
4. Var i:integer;
Begin
For i:=1 to 100 do
Writeln(i*i);
End.