-
Ребят помогите пожалуйста, строчняк нужно....Буду вам очень благодарен !
Ваня наблюдает за лягушкой. Изначально она сидит в точке 0 числовой прямой. Каждую секунду она прыгает на 1 вправо, пока не достигнет точки K. Затем она начинает каждую секунду прыгать на 1 влево, пока не вернется в точку 0, затем – опять вправо и т. д. Требуется определить, где окажется лягушка через T секунд.
-
x := abs(t mod k - k * (sqr(t div k and 1)));
-
А полностью можно пожалуйста?
-
var
k,t,x: integer;
begin
k := 3;
t := 4;
x := abs(t mod k - k*sqr(t div k and 1));
writeln(x);
readln;
end.
-
Спасибо огромное
-
Необходимо вывести все составные числа от 2 до N, а также количество. Составное число — это натуральное число, которое можно представить в виде произведения двух натуральных чисел, больших 1.
Формат ввода
Вводится натуральное число N, большее 1 и не превосходящее 100.
Формат вывода
Выведите все составные числа от 2 до N включительно в порядке возрастания. Затем выведите количество найденных составных чисел.
-
Насчет задачи про лягушку ( вроде не правильно )
Ваня наблюдает за лягушкой. Изначально она сидит в точке 0 числовой прямой. Каждую секунду она прыгает на 1 вправо, пока не достигнет точки K. Затем она начинает каждую секунду прыгать на 1 влево, пока не вернется в точку 0, затем – опять вправо и т. д. Требуется определить, где окажется лягушка через T секунд.
Формат ввода
Вводятся два числа K и T. Оба числа натуральные и не превосходят 1 000 000 000.
Формат вывода
Выведите одно число – координату лягушки в момент времени T.
Можете еще раз посмотреть пожалуйста?
-
> zobix (01.11.11 23:17) [6]Всё строго по условию. Если ты дал не всё условие задачи, то сам виноват. Вот с вводом чисел: var
k,t,x: integer;
begin
writeln('enter K');
readln(k);
writeln('enter T');
readln(t);
x := abs(t mod k - k*sqr(t div k and 1));
writeln('x = ',x);
readln;
end. > zobix (01.11.11 23:14) [5]const
simple: array [2..100] of byte =
(1,1,0,1,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,0,0,1,0,0,0,0,0,1,0,1,0,0,0,
0,0,1,0,0,0,1,0,1,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,1,0,0,0,0,0,1,
0,0,0,1,0,1,0,0,0,0,0,1,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0);
var
i,n,m: integer;
begin
writeln('Enter N');
readln(n);
m := 0;
for i := 2 to n do
if simple[i] = 0 then
begin
write(i,' ');
inc(m);
end;
writeln;
writeln(m);
readln;
end.
-
Насчет [6] Спасибо Правильно , прям идеально)) Огромное спасибо
А Насчет [5] Все дал правильно , но почему то ответы не сходятся
-
А все [5] правильно, спАисибо огромное Вам))
-
> zobix (01.11.11 23:55) [8]
> А Насчет [5] Все дал правильно , но почему то ответы не сходятся
Что именно ответ не сходится?
-
> zobix (01.11.11 23:56) [9]
> А все [5] правильно, спАисибо огромное Вам))
На здоровье!
Преподавателю привет передавай.
-
Это задачи были олимпиады 2011-2012 по инф за 8-11 класс
-
> Омлет © (01.11.11 23:01) [1]
> x := abs(t mod k - k * (sqr(t div k and 1)));sqr, пожалуй, лишний ) x := abs(t mod k - k * (t div k and 1));
-
Либо в разностном варианте, что тоже познавательно
x:=0; step := 1;
T := 200;
k := 3;
for i:=1 to T do begin
Inc(x, step );
if (x = k) or (x = 0) then step := - step;
end;
-
Вот еще про лягушку x := k - abs(t mod (2 * k) - k);
-
Вот еще про лягушку x := k - abs(t mod (2 * k) - k);
-
Хитро..
|
Есть новые 
Нет новых [134427 +37][b:0][p:0.002]