Срочно!! Паскаль! Напишите пожалуйста программу для получения общих делителей двух заданных натуральных чисел

Ответы:

Марат Тищенко

23-01-2011 16:13

все змінювалось на краще

Катюша Золотовская

23-01-2011 21:18

var n, i, d1, d2: integer;begin readln(d1, d2); n := d1; if d1 > d2 then n := d2; for i := 1 to n do if (d1 mod i = 0) and (d2 mod i = 0) then write(i, );end.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Злата Забаева

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Срочно!! Паскаль! Напишите пожалуйста программу для получения общих делителей двух заданных натуральных чисел» от пользователя Злата Забаева в разделе Обществознание. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!