Приставка кило - в информатике значит 1024
переводим 192Кбит/с в биты, получаем 196608бит/с
196608бит/с в байты (делим на 8) поучаем 24576байт/с
переводим 3600 Кбайт в байты, получаем 3686400байт
3686400байт делим на 24576байт/с получаем 150секунд. Всё понятно?
У меня получилось 8 команд:
1) повернись вправо на 90 градусов;
2) пройди вперед на 2 клетки;
3) повернись влево на 90 градусов;
4) пройди вперед на 3 клетки;
5) повернись влево на 90 градусов;
6) пройди вперед на 2 клетки;
7) повернись влево (вправо) на 180 градусов;
8) пройди вперед на 5 клеток.
Если Ентик может двигаться назад, то команды под номером 7 и 8 можно заменить на "7) пройди назад на 5 клеток", тогда будет 7 команд.
Удачи…
//Не смотрел Ваш код, просто моё видение решения задачи
//PascalABC.NET 3.2 сборка 1318
Var
t:text;
x,y,i,j:integer;
s:string;
c:char;
world:array[1..4] of char=('E','S','W','N');
begin
j:=1;
c:='E';
assign(t,'input.txt');
reset(t);
read(t,s);
close(t);
i:=1;
while s[i]<>'S' do
begin
if s[i]='R' then
begin
if c='N' then j:=1 else inc(j);
c:=world[j];
end;
if s[i]='L' then
begin
if c='E' then j:=4 else dec(j);
c:=world[j];
end;
if s[i]='F' then
case c of
'E':inc(x);
'S':dec(y);
'W':dec(x);
'N':inc(y);
end;
inc(i);
end;
assign(t,'output.txt');
rewrite(t);
write(t,x,' ',y);
close(t);
end.
Пример содержимого input.txt:
FLFS
Пример содержимого output.txt:
1 1
Var a,s:integer;
begin
writeln('Введите числа: ');
s:=0;
repeat
readln(a);
if (a mod 4=0) and (a>99) and (a<1000) then s+=1;
until a=0;
writeln(s);
end.
