напишите программу вычисления наибольшего общего делителя двух целых чисел. а)с оператором repeat б) с оператором while ( в интернете
5-9 класс
|
неправильно)помогите пожалуйста
Vasenkaa
28 мая 2014 г., 16:16:18 (9 лет назад)
Erlik2000
28 мая 2014 г., 16:49:38 (9 лет назад)
var a,b: integer;
begin
readln(a,b);
repeat
if(a>b) then a:=a-b;
if(b>a) then b:=b-a;
until (a<>b);
writeln('gcd = ', a);
end.
var a,b: integer;
begin
readln(a,b);
while (a<>b) do begin
if(a>b) then a:=a-b;
if(b>a) then b:=b-a;
end;
writeln('gcd = ', a);
end.
Ответить
Другие вопросы из категории
Читайте также
напишите программу вычисления наибольшего общего делителя двух натуральных чисел.
Используйте оператор repeat,while.
1)Напишите программу,которая запрашивает значения двух переменных и выводит их разность.Приглашение к вводу каждого числа произведите в отдельных
строках.Вывод результата сопроводите пояснениями
2)Напишите программу ввода трех величин( А,В,С) на одной строке,рассчитайте и выдайте на экран на отдельной строке значение выражения: (А*В)/3,14 +3С.
3)Напишите программу вычисления длины окружности и площади круга одного и того же заданного радиуса R.
Решать на паскале...Помогите пожалуйста(((
Вы находитесь на странице вопроса "напишите программу вычисления наибольшего общего делителя двух целых чисел. а)с оператором repeat б) с оператором while ( в интернете", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.