Var a: array[1..20] of Integer;
i,n,sum: Integer;
begin
for i:=1 to 20 do
begin
n:=random(25);
a[i]:=n;
writeln(i,' число: ',n);
end;
for i:=1 to 20 do
begin
if a[i] mod 2=0 then Inc(sum,a[i]);
end;
writeln(sum);
end.
{}
var
n : uint64;
sum, count, max: byte;
begin
write ('Введите натуральное число: ');
readln (n);
repeat
if ((n mod 10) mod 2)=0 then inc (sum, n mod 10)
else if (n mod 10)>max then max:=n mod 10;
if (n mod 10) = 2 then inc (count);
n:=n div 10;
until n=0;
writeln ('Сумма четных цифр: ', sum);
writeln ('Кол-во цифр 2: ', count);
if max=0 then writeln ('Нет нечетных цифр') else
writeln ('Макс. нечетная цифра: ', max);
end.
16777216 = 2^24 бит = 3 байта
1024*768=786432 пикселей. 786432*3=2359296 байт = 2304 кБ на страницу
4^2014=2^4028
2^4028= 1 (4028 нулей)
2^2015=1 (2015 нулей)
2^2015-8= (2015 единиц) - 7= (2012 единиц) 000
ответ 1+2012=2013