1. Информатика
  2. Написать программу вычисления

Написать программу вычисления наибольшего общего делителя двух натуральных чисел используя оператор while.

Maksim9999v Maksim9999v    2   03.06.2019 00:20    0

Ответы
erparsian2017 erparsian2017  03.07.2020 14:34
Var
m, n: word;
begin
readln(m, n);
while m <> n do begin
if m > n then begin
m := m - n
end else
begin
n := n - m
end
end;
writeln(m)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Сергей0013 Сергей0013  31.07.2019 14:26
Program5.pas(11) : нельзя преобразовать тип string к realprogram rivnanna; vara,b,c,d: real; begin writeln( введіть перший коефіціент рівняння ); readln(a); writeln( введіть...
слава499 слава499  31.07.2019 16:00
Цепочка из трех бусин, помеченных латинскими буквами, формируется по следующему правилу: – в конце цепочки стоит одна из бусин c, a, e; – на первом месте – одна из бусин b, a,...
Лизочка2597 Лизочка2597  31.07.2019 16:00
дано матрицю a[1..n,1..m]. елементи матриці потрібно згенерувати випадковими числами з діапазону[0..50]. на друк вивести вхідну матрицю та результати обробки за умовою :...
smagzamova2006 smagzamova2006  31.07.2019 16:00
Дана строка s определить какой процент слов в ней оканчивается на букву л....
sebasogo sebasogo  31.07.2019 16:00
Как перевести из c++(visual basic) в python: for i=0 to n r=n*m...
leravseznayka leravseznayka  31.07.2019 16:00
Задана матрица a (n, n) действительных чисел. перевернуть в ней главную и побочную диагонали (переписать цифры в обратном порядке)....
anastasiataraso anastasiataraso  31.07.2019 16:00
Отсортировать массив строк по алфавиту. учитывать учитывать каждый символ, то есть если первая буква одинакова, сравнивать вторую....
Евгений006 Евгений006  31.07.2019 16:00
Даны массивы целых: x из p элементов, y из q элементов, z из r элементов (p,q,r =50). элементы массивов по возрастанию. выяснить, есть ли такие числа, которые встречаются в каждом...
dickosh97 dickosh97  31.07.2019 16:00
Составить программу в паскале, которая определит, поместится ли квадрат со стороной а в круг радиуса r, или круг в квадрат....
eugenetroyan eugenetroyan  31.07.2019 16:00
«бегущая строка». составить программу в паскале. которая изобразит в нижней части экрана строку, «бегущую» справа налево. строка должна менять свой цвет....

Популярные вопросы