Лучшие помощники
- Megamozg 2190 б
- Matalya1 1800 б
- DevAdmin 1695 б
- arkasha_bortnikov 860 б
- Dwayne_Johnson 845 б
3 апреля 2023 08:36
330
Составьте программу нахождения наибольшего общего делителя трех чисел на паскале.Вроде составила блок-схему, которая работает,но что-то не получается написать программу...
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
Остались вопросы?
Еще вопросы по категории Информатика
N = 5 A = [0]*N for i in range(N): A[i] = i Какие значения будут записаны в массив А? [ , &nb...
Операционные системы входят в состав: а) системы управления базами данных б) систем программирования в) прикладного ПО г) системного ПО...
2. Укажите правильное описание массива а. Var a:array[1..1000] of integer; б. Var А, В, С: ARRAY [1..50] OF REAL or INTEGER; в. Var А: ARRAY [1..50 OF...
Питон. Выведите все элементы списка с четными индексами (то есть A[0], A[2], A[4], ...)....
N =5 A=[0]*N for i in range(N): A[i]=i+3...
Все предметы