С клавиатуры вводятся числа N и K. Вывести на экран //

С клавиатуры вводятся числа N и K. Вывести на экран // меньший делитель введённых чисел.

Задать свой вопрос
Егор Бадрихин
Язык ?
1 ответ
Pascal
Program del;
Var n, k, I, a, b, m : integer;
Begin
Readln(n, k);
M = -1;
For i:=2 to n do
Begin
a:=n mod i;
b:=k mod I;
If (a=0) and (b=0) and (m = -1) then
M = I;
end;
If m = -1 then
Writeln (NO)
Else writeln(m);
End.
Регина
Спасибо огромное !
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт