Счетчики числа повторений циклов.

[Andrey35]

Помогите нужно :
1) Добавить в обе программы счетчики числа повторений циклов.
2) В программу Al_Horezmi добавить проверку знака вводимых значений M и N . Если вводится отрицательное число, то компьютер должен сообщить пользователю об ошибке и предложить повторить ввод.

(1 программа)

program Russian_method;
Var M,N,Mul;integer;
begin
write('M='); readln(M);
write('N='); readln(N);
write(M,'*',N,'=');
Mul:=0;
while N>=1 do
begin
if (N mod 2=1)
then Mul:=Mul+M;
N:=N div 2; M:=M*2;
end;
writeln(Mul)
end.

(2 программа)

Program Al_Horezmi;
Var M,N,Mul,Q:integer;
begin
write('M='); readln(M);
write('N='); readln(N);
write(M,'*',N,'=');
Mul:=0; Q:=1;
while N>=1 do
begin
Mul:=Mul+M*(N mod 10)*Q;
N:=N div 10; Q:=Q*10
end;
writeln(Mul)
end.

[unbanned]

program Russian_method;

var
  M, N, Mul, i: integer;

begin
  write('M='); readln(M);
  write('N='); readln(N);
  write(M, '*', N, '=');
  Mul := 0;
  i := 0;
  while N >= 1 do
  begin
    inc(i);
    if (N mod 2 = 1)
      then Mul := Mul + M;
    N := N div 2; M := M * 2;
  end;
  writeln(Mul)
end.

program Al_Horezmi;

var
  M, N, Mul, Q, i: integer;

begin
  repeat
    write('M='); readln(M);
    write('N='); readln(N);
  until (n >= 0) and (m >= 0);
  write(M, '*', N, '=');
  Mul := 0; Q := 1;
  i := 0;
  while N >= 1 do
  begin
    inc(i);
    Mul := Mul + M * (N mod 10) * Q;
    N := N div 10; Q := Q * 10
  end;
  writeln(Mul);
end.

[Andrey35]

Сообщение от unbanned

program Russian_method;

var
  M, N, Mul, i: integer;

begin
  write('M='); readln(M);
  write('N='); readln(N);
  write(M, '*', N, '=');
  Mul := 0;
  i := 0;
  while N >= 1 do
  begin
    inc(i);
    if (N mod 2 = 1)
      then Mul := Mul + M;
    N := N div 2; M := M * 2;
  end;
  writeln(Mul)
end.

program Al_Horezmi;

var
  M, N, Mul, Q, i: integer;

begin
  repeat
    write('M='); readln(M);
    write('N='); readln(N);
  until (n >= 0) and (m >= 0);
  write(M, '*', N, '=');
  Mul := 0; Q := 1;
  i := 0;
  while N >= 1 do
  begin
    inc(i);
    Mul := Mul + M * (N mod 10) * Q;
    N := N div 10; Q := Q * 10
  end;
  writeln(Mul);
end.

это счетчики числа повторений циклов ?

[unbanned]

я думаю, что да. или вы не согласны?

[Andrey35]

Сообщение от unbanned

я думаю, что да. или вы не согласны?

спасибо за помощь.
А второе знаете как сделать ? был бы очень признателен вам

[IT-man]

А второе знаете как сделать ?

А это по вашему что?

  repeat 
    write('M='); readln(M);
    write('N='); readln(N);
  until (n >= 0) and (m >= 0);

[Andrey35]

Сообщение от IT-man

А это по вашему что?

  repeat 
    write('M='); readln(M);
    write('N='); readln(N);
  until (n >= 0) and (m >= 0);

блин что-то я запутался напишите пожалуйста где тут первое а где второе задание ?

[unbanned]

переменная i и в первой и второй программе счетчик. можете вывести его на экран если надо.

repeat 
....
  until (n >= 0) and (m >= 0);

проверка ввода... сообщение об ошибке и выход из цикла доделаете сами