Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 895 б
- Dwayne_Johnson 865 б
3 апреля 2023 08:36
388
Составьте программу нахождения наибольшего общего делителя трех чисел на паскале.Вроде составила блок-схему, которая работает,но что-то не получается написать программу...

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
5 апреля 2023 08:36
Остались вопросы?
Еще вопросы по категории Информатика
Дан фрагмент таблицы истинности выражения F: x1 x2 x3 x4 x5 x6 x7 F 1 0 0 1 1 1 1 0 1 1 1 0 1 1 0 0 0 1 0 1 1 0 0 1 Каким из приведенных ниже выра...
Представьте десятичные числа в беззнаковом 8-разрядном формате: 43 121...
Тест «создание web – сайта» 9 класс. 1) бесплатный хостинг подходит для … 1. огромных общественных веб-сайтов. 2. больших интернет-магазинов. 3. не...
Какие программы называют прикладными ? Помогите плиз *)...
Что тут не правильно? names = [] while True: name = input() if name == "и другие": break &...