var i, sum:integer;
n:string;
begin
readln(n);
for i:=1 to length(n) do begin
if StrToInt(n[i]) mod 4 <> 0 then
sum:=sum+StrToInt(n[i]);
end;
writeln(sum);
end.
Var N,i,x,k:integer;
begin;
writeln('Сколько элементов в последовательности?');
readln(N);
writeln('Введите последовательность чисел');
for i:=1 to N do
begin
readln(x);
if odd(x) then
k:=k+1end;writeln(k/N*100,' %');
end.
<em>1)</em>
<em>var a, b, c, i, n, j :integer;</em>
<em> s :string;</em>
<em>begin</em>
<em> read (s);</em>
<em> for i:=1 to length(s) do</em>
<em> begin</em>
<em> if (ord (s[i])>=97) and (ord (s[i])<=122) then write (char(ord (s[i])-32))</em>
<em> else write (s[i]);</em>
<em> end;</em>
<span><em>end.</em>
<em>2)</em>
<em>var a, b, c, i, n, j :integer;</em>
<em> s :string;</em>
<em> p :array[1..10000] of integer;</em>
<em>begin</em>
<em> read (s);</em>
<em> if s[1]=' ' then</em>
<em> begin</em>
<em> j:=j+1;</em>
<em> p[j]:=1;</em>
<em> end;</em>
<em> for i:=2 to length(s) do</em>
<em> if (s[i]=' ') and (s[i-1]<>' ') then</em>
<em> begin</em>
<em> j:=j+1;</em>
<em> p[j]:=i;</em>
<em> end;</em>
<em> for i:=1 to j do</em>
<em> begin</em>
<em> a:=p[i];</em>
<em> p[i]:=0;</em>
<em> while s[a]=' ' do</em>
<em> begin</em>
<em> inc (p[i]);</em>
<em> a:=a+1;</em>
<em> end;</em>
<em> end;</em>
<em> b:=p[1];</em>
<em> for i:=1 to j do</em>
<em> if p[i]>b then b:=p[i];</em>
<em> write (b);</em>
<span><em>end.</em>
<em>3)</em>
<em>var a, b, c, i, n, j :integer;</em>
<em> s :string;</em>
<em> p :array[1..10000] of integer;</em>
<em>begin</em>
<em> read (s);</em>
<em> i:=1;</em>
<em> write (s[i]);</em>
<em> while s[i]<>':' do</em>
<em> begin</em>
<em> inc (i);</em>
<em> write (s[i]);</em>
<em> end;</em>
<span><em>end.</em>
<em>4)</em>
<em>var a, b, c, i, n, j :integer;</em>
<em> s :string;</em>
<em> p :array[1..10000] of integer;</em>
<em>begin</em>
<em> read (s);</em>
<em> i:=1;</em>
<em> while s[i]<>':' do</em>
<em> inc (i);</em>
<em> i:=i+1;</em>
<em> while (s[i]<>':') and (i<=length(s)) do</em>
<em> begin</em>
<em> write (s[i]);</em>
<em> inc (i);</em>
<em> end;</em>
<span><em>end.</em></span></span></span></span>
При n=6 результат будет 25,
при n= 5 результат будет 19
при n= 9 результат будет 49