SHARE
TWEET

Untitled

a guest Sep 20th, 2019 77 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Program laba1_3;
  2. Var
  3.     m, n, k, m_intial : integer;
  4.     IsCorrect: Boolean;
  5. Begin
  6.     IsCorrect:=FALSE;
  7.     m:=1;
  8.     k:=0;
  9.     repeat
  10.         try
  11.             writeln('Введите m: ');
  12.             readln(m_intial);
  13.             IsCorrect:=True;
  14.             If m_intial<1 then
  15.             begin
  16.                 IsCorrect:=False;
  17.                 Writeln('m должно быть больше 1!');
  18.             end;
  19.         except
  20.             Writeln('Введите целое положительное число');
  21.         end;
  22.     until (IsCorrect);
  23.     repeat
  24.         try
  25.             Writeln('Введите n: ');
  26.             Readln(n);
  27.             IsCorrect:=True;
  28.             If ((n<2) or (n=m_intial) or (n<m_intial)) then
  29.             begin
  30.                 IsCorrect:=False;
  31.                 Writeln('Число n должно быть больше m!');
  32.             end;
  33.         except
  34.             Writeln('Введите целое положительное число!');
  35.         end;
  36.     until IsCorrect;
  37.     while (m<n) do
  38.     begin
  39.       m:=m*m_intial;
  40.       inc(k);
  41.     end;
  42.     If m=n then
  43.     begin
  44.       inc(k);
  45.     end;
  46.     Writeln('Наименьшее k = ',k );
  47.     readln(n);
  48. End.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top