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

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
Остались вопросы?
Еще вопросы по категории Информатика
Запиши ответ Татьяна редактировала фотографию своей подруги. После выполненной работы она хотела отослать фотографию через специальный сервис, чтобы...
Очень срочно нужно ответить пожалуйста!!!...
2.Перечислите известные вам формы записи алгоритмов. 6 класс...
Задача 4: Петя, Ваня и Леон В известной игре Stawl Brarѕ Пeтe выпал новый персонаж, которого зовут Леон. У Пети и его друга Вани один аккаунт на двоих...
текст составлен с использованием алфавита мощностью 64 символа и содержит 100 символов. каков информационный объем текста? помогите ответить пожалуйст...