Составьте программу нахождения наибольшего общего делителя трех чисел на паскале.Вроде составила блок-схему, которая работает,но что-то не получается написать программу...

2 ответа

Посмотреть ответы

DevAdmin

1720

_______________________

Хороший ответ

4 апреля 2023 11:03

Megamozg

2205

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.

4 апреля 2023 11:03

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

Что будет напечатано после того, как выполнится следующий фрагмент кода? s = 'abrakadabra' s = s.replace('a','') print(len(s)) Запишите ответ циф... Для передачи аварийных сигналов договорились использовать специальные цветные сигнальные ракеты, запускаемые последовательно. Одна последовательность... Как решить Значение арифметического выражения: 2∙9^10 – 3^5 + 5 записали в системе счисления с основанием 3. Сколько цифр «2» содержится в этой записи... На рисунке -схема дорог, связывающих города А, Б, В, Г, Д, Е, Ж, И, К, Л, М, Н, П, Р, С, Т, У. По каждой дороге можно двигаться только в одном направ... Переведите число 10111 из двоичной системы счисления в десятичную си‐ стему счисления....