Nbsp;       у исполнителя марс две команды, которым присвоены номера: 1. прибавь 12. умножь на k(k – неизвестное натуральное число; k ≥ 2)выполняя первую из них, марс увеличивает число на экране на 1, а выполняя вторую – умножает это число на k.программа для исполнителя марс – это последовательность номеров команд. известно, что программа 111211 переводит число 64 в число 203. определите значение k.​

k = 3

Объяснение:

Составим уравнение

((64 + 1 + 1 + 1) * k) + 1 + 1 = 203

67k + 2 = 203

67k = 203 - 2

67k = 201

k = 201 / 67

k = 3

Проверка

64 + 1 = 65

65 + 1 = 66

66 + 1 = 67

67 * 3 = 201

201 + 1 = 202

202 + 1 = 203

Uses crt;var a,b,c,d,g,i,k,l,z,x,m,n,q:real;beginwriteln('введите число тон');readln(a);writeln('введите число ');readln(b);writeln('введите число ');readln(c);writeln('введите число ');readln(d);writeln('введите число ');readln(g);writeln('введите число ');readln(i);writeln('введите число ');readln(k);writeln('введите число ');readln(l);writeln('введите число ');readln(n);writeln('введите число ');readln(m);writeln('введите число ');readln(z);writeln('введите число ');readln(x);q:=a+b+c+d+g+i+k+l+z+x+m+n;writeln('Обща маса',q:10:2);end.

Const n=20;
var a:array [1..n] of integer;
k,i:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(90)+10;
 write(a[i],'  ');
 end;
writeln;
k:=0;
for i:=1 to n do
 if a[i] mod 2 = 0 then k:=k+1;
writeln('В массиве ',k,' четных чисел');
writeln('Элементы с нечетными номерами:');
for i:=1 to n do
 if i mod 2 <> 0 then write(a[i],'  ');
end.

Пример:
Исходный массив:
55  40  42  16  52  12  46  58  75  72  39  51  54  64  83  20  77  37  52  23  
В массиве 12 четных чисел
Элементы с нечетными номерами:
55  42  52  46  75  39  54  83  77  52