Лучшие помощники
- Megamozg 2190 б
- Matalya1 1800 б
- DevAdmin 1695 б
- arkasha_bortnikov 860 б
- Dwayne_Johnson 845 б
2 апреля 2023 11:03
759
Составьте программу нахождения наибольшего общего делителя трех чисел на паскале.Вроде составила блок-схему, которая работает,но что-то не получается написать программу...
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
Остались вопросы?
Еще вопросы по категории Информатика
ПОМОГИТЕ ПОЖАЛУЙСТА С ЗАДАНИЕМ! В ходе телевизионного шоу проводится смс-голосование: каждый телезритель отдат свой голос за одного из 12 артистов-уча...
A = math.pow(4,2) - Ответ ...
Информатика Якласс 7 класс...
Пусть / – целочисленное деление. Тело функции F(n) задано следующими строчками и условиями: F(1) = 1 F(n) = (n / 2) · F(n - 1) - 1, при n >...
С каких слов начинается описание фактов? 1)Я умею... 2)Я знаю,как... 3)Для того чтобы... 4)Я знаю,что......
Все предметы