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.
143,511(10) = 1*10^2+4*10^1+3*10^0+5*10^-1+1*10^-2+1*10^-3
143511(8) = 1*8^5+4*8^4+3*8^3+5*8^2+1*8^1+1*8^0
143511(16) = 1*16^5+4*16^4+3*16^3+5*16^2+1*16^1+1*16^0
1435,11(8) = 1*8^3+4*8^2+3*8^1+5*8^0+1*8^-1+1*8^-2
Var a,i:integer;
begin
a:=0;
for i = 10 to 99 do
begin
if ((i mod 2)<>0) and ((i mod 13)<>0) then
a:=a+1;
end;
writeln (a);
end.
вроде так
Объяснение:
<em>#include <iostream></em>
<em>using namespace std;</em>
<em>int main()</em>
<em>{</em>
<em>int i, squareI;</em>
<em>i=11;</em>
<em>while (i<21) do</em>
<em>{</em>
<em>squareI=i*i;</em>
<em>cout << "i= " << i++ << "; squareI= " << squareI << endl;</em>
<em>}</em>
<em>return 0;</em>
<em>}</em>