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

2 ответа

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

DevAdmin

1705

_______________________

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

4 апреля 2023 11:03

Megamozg

2200

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

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

Найти нужный

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

1.приведите пример информационной модели: а)ученика вашего класса б)игрока баскетбольной команды в)пациента ветеринарной лечебницы г)квартиры жи... Выберите форматы текстовых файлов: ODT GIF TXT JPEG DOC PDF RTF HTML EXE BMP... Перепишите программу на языке Паскаль, исправив ошибки: Program primer Var a,b: integer; Begin ; ReadLn( a,b); s=a+b; m:=a*b; d:=a:b; WriteLn(s); Writ... Чему будет равно значение переменной а после выполнения программы а=3 а+=1 *один правильный ответ 1 3 4... 1, Данные каких типов могут храниться в ячейках таблицы? 2, Каковы основные параметры форматирования абзацев?...