В 4 ответ 3.
к сожалению в 5 не могу ничего понять.
Даётся 4 бита, это 2^4 = 16 вариантов (0..15)
ответ: 16
Var s,k,m:integer;
begin
write('s = ');
readln(s);
k:=s div 800;
m:=s mod 800;
writeln('Кругов: ',k,' и ещё метров: ',m);
end.
Пример:
s = 5020
Кругов: 6 и ещё метров: 220
Вперед на указанное расстояние. Поворот налево на 90 градусов.
Вперед на указанное расстояние. Поворот налево на 90 градусов.
Вперед. Поворот налево на 90 градусов. Поворот направо на 90градусов.
Если нужно от 15 до 2 :
Var i:integer
Begin
i:=2
while i<=15 do begin
write(i**3,' ')
end;
end.
P.S. Если нужно от 2 до 15 :
Var a,i:integer
Begin
for i:=2 to 15 do
begin
write(i**3,' ')
end;
end.