Найти наибольший общий делитель двух натуральных чисел - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Условие:найти наибольший общий делитель двух натуральных чисел a и b. Решение:
Пишет в строке 9,что операнды имеют неприводимые типы.Как исправить?

Решение задачи: «Найти наибольший общий делитель двух натуральных чисел»

textual
Листинг программы
program Ivan;
var
z:real;
m : integer;
i,a,b:integer;
begin
writeln('a,b =');
readln(a,b);
if a<b then m:=a else m:=b;
for i:=1 to m do
 if (a mod i = 0) and (b mod i = 0) then z:=i;
 writeln(z:6:2);
 Readln;
 end.

Объяснение кода листинга программы

  1. Программа начинается с объявления переменных z, m, i, a и b. Переменная z является вещественным числом, а остальные переменные являются целыми числами.
  2. Затем программа выводит сообщение a,b =, чтобы пользователь мог ввести два числа.
  3. После ввода чисел, программа проверяет, какое из чисел меньше другого. Если a меньше b, то значение переменной m устанавливается равным a, иначе значение m устанавливается равным b.
  4. Затем начинается цикл for, который выполняется от 1 до m. В каждой итерации цикла проверяется, делится ли число a на текущее значение i без остатка, и также проверяется, делится ли число b на текущее значение i без остатка.
  5. Если оба условия выполняются, то значение переменной z устанавливается равным i.
  6. После завершения цикла, значение переменной z выводится на экран в формате z:6:2, где 6 это количество знаков после запятой, а 2 это количество знаков до запятой.
  7. Наконец, программа просит пользователя ввести еще один раз, чтобы получить второе число.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.625 из 5
Похожие ответы