Program ghg;
var a,b,s:integer;
begin
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
if (a<=2*109) and (b<=2*109) then
s:=a+b;
writeln('s=',s);
end.
<em>Program Zn;</em>
<em>var n,k,sum:integer;</em>
<em>Begin</em>
<em>Writeln('Введите натуральное число');</em>
<em>Readln(n);</em>
<em>While n<>0 do begin</em>
<em>k:= n mod 10;</em>
<em>if k mod 2 = 0 then sum:=sum+k;</em>
<em>n:= n div 10;</em>
<em>end;</em>
<em>writeln('Сумма четных чисел = ', sum);</em>
<em>end.</em>
<em>(Проверено и откомпелировано на Pascal.NET)</em>
По пять цифр в ряду
n = 10:
1 2 3 4 5
6 7 8 9 10
11 12 13 14 15
16 17 18 19 20
n = 2:
1 10 11 100 101
110 111 1000 1001 1010
1011 1100 1101 1110 1111
10000 10001 10010 10011 10100
n = 3:
1 2 10 11 12
20 21 22 100 101
102 110 111 112 120
121 122 200 201 202
n=5:
1 2 3 4 10
11 12 13 14 20
21 22 23 24 30
31 32 33 34 40
n=8:
1 2 3 4 5
6 7 10 11 12
13 14 15 16 17
20 21 22 23 24
Примерно так .
_______________________________________________________