Задачи на циклы - Pascal

[die_hard]

Здравствуйте, уважаемые програмисты=)) Вообщем моя проблема такова: не могу решить лабораторку по циклам в Paskal(( (первый курс, вы наверное догадались). Я понимаю, что до моих проблем тут никому дела нет, но всё таки помагите чем сможете...
Вообщем первая (и наверное самая простая) задача: "Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N и K, а также остаток от деления."
Вот собственно мои соображения:
program _;
var n,k,x:real;{х-остаток}
begin
readln (n);
readln (k);
while x<k do
x:=n-k;
writeln (x);
...
end.
Но, ничего не получаеться...(( Думаю, поняв принцип решения первой задачи, пойму и остальные.))
И исчо: вы не будете сердиться, если я буду задавать глупые вопросы?!))

[LuMax]

как я понял там должна бать еще одна переменая к которой пребовляеться единица если выполняеться x>k,вот эта переменая и будет выражать частное
ЗЫ правильно пишеться Pascal

[die_hard]

Спасибо, разобрался с этой задачей. Может у кого есть какие-нибудь соображения по поводу такой задачи: "Дано целое число N (>0), являющееся некоторой степенью числа 2: N = 2K. Найти целое число K – показатель этой степени." Заранее благодарен.

[puporev]

Возведение числ 2 в степень n есть умножение этого числа n раз на себя. Естественно предположить, что для того чтобы узнать сколько раз мы умножили, нужно обратно делить на 2, пока число не будет =1.
Целочисленное деление N div 2.
Цикл надо использовать
While N>1 do

[Kostia]

Может сдвигами попробовать:

uses CRT;
var
  n,k: integer;
begin
  clrscr;
  write('Enter two numbers '); readln(n);
  k:=0;
  repeat
    n:=n shr 1;
    k:=k+1;
  until n=1;
  writeln('Power: ',k);
  readln;
end.

[die_hard]

Спасибо вам) Только немного не допонял госп. puporeva. Я задаю решение примерно таким образом:
program _;
var n, k : real;
begin
readln (n);
while n>1 do
k:=n div 2
writeln (k);
end.
Но паскаль выдаёт сообщение, что задано неверное выражение...
А по поводу решения через shr - этот оператор вообще для меня открытие - впервые его вижу, но всё прекрасно работает (а кто бы сомневался=)).

[die_hard]

Ааа... Всё понял, где делал ошибку...=))
Может поможете доделать лабу до конца? Всё равно для вас эти задачи, как семечки...
?=))

[любаша]

всем привет)))еще одна первокурсница,котораяя парится с циклами. может кто-то сможет мне помочь:напечатать минималное число,большее 200,которое нацело делится на 17????

[puporev]

В следующий раз создавай новую тему, не лезь в чужую, удалят.

var n,i:integer;
begin
n:=200;
repeat
inc(n)  //увеличиваем число на 1, пока оно не будет делиться на 17
until n mod 17=0;
write('n=',n);
readln
end.

[die_hard]

Вообщем ещё не могу вычислить факториал целого числа n. Кто может подсказать код?!=))