Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
2 апреля 2023 11:03
871
Составьте программу нахождения наибольшего общего делителя трех чисел на паскале.Вроде составила блок-схему, которая работает,но что-то не получается написать программу...

2
ответа
PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var a,b,c:integer;
Read(a,b,c);
while a<>b do
if a>b then a:=a-b
else b:=b-a;
while a<>c do
if a>c then a:=a-c
else c:=c-a;
Writeln(a)
end.
Все реализовано в точном соответствии с приведенной блок-схемой.
Проверено для набора входных данных 6 30 15, получен верный результат 3.
Внимание! Если программа не работает, обновите версию!
begin
var a,b,c:integer;
Read(a,b,c);
while a<>b do
if a>b then a:=a-b
else b:=b-a;
while a<>c do
if a>c then a:=a-c
else c:=c-a;
Writeln(a)
end.
Все реализовано в точном соответствии с приведенной блок-схемой.
Проверено для набора входных данных 6 30 15, получен верный результат 3.
0
4 апреля 2023 11:03
Остались вопросы?
Еще вопросы по категории Информатика
В корзине лежат белые и черные шары. Среди них 18 черных шаров. Сообщение о том, что из корзины достали белый шар, несет 2 бита информации. Сколько вс...
Дано логическое выражение. 1. Необходимо преобразовать его к виду содержащему только элементы "или-не" 2.Необходимо преобразовать его к виду содержа...
1) С клавиатуры вводится трёхзначное число. Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных случаях....
Вспомните по одному объекту каждого из приведённых множеств и запишите их единичные имена объектов. ОБЩЕЕ ИМЯ ЕДИНИЧНОЕ ИМЯ мореплаватель ученый комп...
Какие протоколы используются на прикладном уровне, уровне представления, сеансовом уровне? Для чего используются, какую роль выполняют ?...