Генерирую массив потом вывожу в столбики,n-константа которую ты выбираешь внезависимости от размера желаемого массива
program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
const n=7;
var a:array [0..n] of integer;
i:integer;
begin
randomize;
for i:=0 to n do
a[i]:=Random(100);
Writeln('X F(X)');
for i:=0 to n do
begin
if i mod 2 <> 0 then Continue;
write(a[i],' ',a[i+1]);
Writeln;
end;
readln;
end.
Рисунок - в прилагаемом файле.
K5+K6+K7+K9 = 570
K5+K6 = 436
K6 = 68
K6+K7+K9 - ?
K5 = (K5+K6)-K6 = 436-68 = 368
K6+K7+K9 = (K5+K6+K7+K9)-K5 = 570-368 = 202
Ответ: 202
Узнаем, насколько сместится чертёжник после выполнения цикла (вторая и третья команда):
x = (3 + 1) × 3 = 12
y = (3 - 2) × 3 = 3
После выполнения всего алгоритма (без команды 1):
x = 12 - 6 = 6
y = 3 + 9 = 12
Чертёжник вернётся в исходную позицию, если задать команду так, чтобы при выполнении этой команды трижды (ведь цикл повторяется три раза) чертёжник сместился на (-6, -12).
x = -6 ÷ 3 = -2
y = -12 ÷ 3 = -4
Ответ: (-2, -4)
101110101=<span><span>373(10), 10111=23(10)
</span></span>Сумма 110001100(2)=<span>
396(10)</span>
5СС
количество трёхзначных чисел (5сс) = 444-100+1;
444 (5сс) =4*5^2+4*5+4=100+24=124 (10cc)
100 (5cc)= 25 (10cc)
124-25+1=120 трёхзначных чисел в 5(сс)
