Var i, k,a1,a2,a3,b1,b2,b3: integer;
k:=0;
for i:=100000 to 999999 do
begin
a1:=i mod 100000;
a2:=i/10 mod 10000 ;
a3:=i/100 mod 1000;
b1:=i/1000 mod 100;
b2:=i/10000 mod 10;
b3:=i/100000 mod 1;
if ((a1+a2+a3=13) and (b1+b2+b3=13))
k:= k+1;
Программа на языке Pascal
var
k,u,u1,u2:real;
begin
k:=1;
u1:=25;
u2:=35;
while (u1<100) or (u2<100) do
begin
u1:=u1+u1*0.07;
u2:=u2+u2*0.05;
k:=k+1;
end;
writeln('Количество туров:',k);
if u1>=100 then writeln(1) else writeln(2)
end.
ОТвет 23 тура первый участник
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (n,s,k):=(-8,0,0);
repeat
s+=n; k+=1;
n+=4
until n>4;
Writeln('Сумма=',s,', количество слагаемых ',k)
end.
<u>Результат</u>
Сумма=-8, количество слагаемых 4
Подключаться к интернету,загружать программы и приложения,проигрывать музыку,фотографировать... Удачи:)
Поворот направо, шаг, поворот налево, поворот налево, шаг, поворот направо (1 линия)
Прыжок, поворот направо, шаг, шаг, поворот налево, поворот налево, шаг, шаг, поворот направо (2 линия)
Прыжок, поворот направо, шаг, шаг, шаг, поворот налево, поворот налево, шаг, шаг, шаг, поворот направо (3 линия)
Прыжок, поворот направо, шаг, шаг, шаг, поворот налево, поворот налево, шаг, шаг, шаг, поворот направо (4 линия)
Прыжок, поворот направо, шаг, шаг, поворот налево, поворот налево, шаг, шаг, поворот направо (5 линия)
Прыжок, поворот направо, шаг, поворот налево, поворот налево, шаг, поворот направо (6 линия)