Дано два натуральных числа а и б . Написать программу, которая будет находить и распечатывать все общие делители этих чи

Программа делится на 2 части:
− сначала найти НОД этих двух чисел
− потом найти делители полученного числа

Всё очень просто ;-)

Можно искать делители одного числа и тут же проверять, не делится ли на них второе число. Примерно так, на Basic:
Sub Deliteli
Dim a As Integer, b As Integer, d As Integer, s As String
Print "Vvedite a"; : Input a
Print "Vvedite b"; : Input b
s = ""
For d = a To 1 Step -1
If a Mod d = 0 Then
If b Mod d = 0 Then s = s & str(d) & "; "
End If
Next d
Print s
End

Не слушай бред программеров.. .
вот код проверяй

program p67400739;
var a,b,i:integer;
begin
read(a,b);
if a>b then
begin
for i:=1 to b do
if (a mod i=0) or (b mod i=0) then
writeln(i);
end
else
begin
for i:=1 to a do
if (a mod i=0) or (b mod i=0) then
writeln(i);
end;
end.

Ну.... Я могу написать тебе программу на квик бейзике, но она будет стоить тебе 200р на мой мобильный телефон.
А так только подсказки:
В цикле находишь все делители числа А в порядке убывания
В следующем цикле находишь все делители числа Б в порядке убывания
в массив заносишь одинаковые делители и тут же выводишь на экран.
Если что, пиши в агент.