BEGIN
INT I, SUM;
/* ЧИСЛО МОНЕТОК */
SUM := 0;
FOR (I := 0; I <= 10000; I++)
BEGIN
SUM := SUM + I;
END;
/* РЕЗУЛЬТАТ */
PRINTLN ('ЧИСЛО МОНЕТОК: ' + STR(SUM));
END
128=2^7 128^(30)=2^(210) 16=2^4 16^(60)=2^(240)
16^60+128^30-16 = 2^240+2^210-2^4
2^240= 1000..000 (2cc) (1 и 240 нулей)
2^240= 10...0 (8cc) (1 и 80 нулей)
2^210=1000....000 (2cc) 1и 210 нулей
2^4 =1000 (2cc)
выполняем действие 2^210-2^4 в 2сс и потом переводим в 8сс:
в 2сс: 2^210-2^4=111.. 110 000 (206 единиц и 4 нуля) ; переводим в 8сс:
111...110 000 (2сс) = 7777...760 (8сс) (204:3=68 семёрок, шестёрка и ноль)
ответ 68
1)
var
a:array[1..14] of integer;
n,k,i:integer;
begin
for i:=1 to 14 do
begin
a[i]:=Random(19);
write(a[i],' ');
end;
writeln;
for i:=1 to 14 do
if (a[i] mod 2=1) and (a[i]<10)
then write(a[i],' ');
readln
end.
2)
var
a:array[1..15] of integer;
n,k,i:integer;
begin
for i:=1 to 15 do
begin
a[i]:=Random(29)-14;;
write(a[i],' ');
end;
writeln;
for i:=10 to 15 do
if a[i]<5
then write(a[i],' ');
readln
end.