ВОРОБЕЙ ЕСЛИ ВЫБРАТЬ ИЗ ЭТИХ ТАК КАК ОСТАЛЬНЫЕ НЕЖИВЫЕ
Алг Манхеттен
нач
вещ x, s
цел i
вывод "x =", нс
ввод x
s:=20
нц для i от 1627 до 2017
s:=s+s*x/100
кц
вывод "s = ", s
кон
16 = 2⁴, поэтому один символ алфавита весит 4 бита.
64 × 4 = 256 бит = 32 байта
const k=10;
var i,n,m: integer;
a: array[1..k] of integer;
begin
n:=0;
m:=0;
for i:=1 to k do
a[i]:=random(21);
for i:=1 to k do
write(a[i],' ');
writeln();
for i:=1 to k do
begin
if ((a[i] mod 2 =0) and (a[i]<>0)) then n:=n+1;
if (a[i] mod 2 <> 0) then m:=m+1;
end;
writeln('Четных : ',n,' Нечетных : ',m);
end.