Лучшие помощники
- Megamozg 2170 б
- Matalya1 1800 б
- DevAdmin 1685 б
- arkasha_bortnikov 775 б
- Dwayne_Johnson 755 б
3 апреля 2023 08:36
271
Составьте программу нахождения наибольшего общего делителя трех чисел на паскале.Вроде составила блок-схему, которая работает,но что-то не получается написать программу...
![image](https://539619.selcdn.ru/cdn-znarium-com/qa/7b377b9-ae9c4856d7-690cfb.png)
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
Остались вопросы?
Еще вопросы по категории Информатика
Переведите двоичное число 1100110 в десятичную систему счисления...
Помогите пожалуйста!!! Две минуты записи цифрового аудиофайла занимают на диске 5.1 Мб. Частота дискретизации -- 22050 Гц. Какова разрядность аудиоада...
Что будет напечатано после того, как выполнится следующий фрагмент кода? s := 'helicopter'; while pos('e', s) > 0 do begin x := pos('e'...
11. В чем заключается кодирование текстовой информации?...
1.Система команд исполнителя Конструктор состоит из двух команд,которым присвоены номера: 1-приписать 2 2-разделить на 2 по первой из них к числу...