Регистрация
Войти
Стать экспертом Правила
Информатика

Пожалуйста посчитайте СРОЧНО ПОЖАЛУЙСТА ПРОГРАММИРОВАНИЕ НА PYTHON! ДАЮ 40 поинтовДано натуральные числа m и n. Составить программу для нахождения всех их общих делителей

ОТВЕТЫ

Var i,m,n,s,t:integer;

Begin

write('Введите число m: ');readln(m);

  write('Введите число n: ');readln(n);

  if m > n then

  t:= n else t := m;

  for i := 1 to t do

    begin

      if ((m mod i) = 0) and ((n mod i) = 0) then

      s:= s + i;

    end;

       writeln(s);

       readln;

end.

Как то так

170
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам