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

Eva
Oct 24, 2020
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
Смежные вопросы: