1. Другие предметы
  2. Найти НОД(а, b). (программа

Найти НОД(а, b). (программа Паскаль)

оkсана06 оkсана06    3   16.04.2019 23:00    0

Ответы
лолкекчибурек1 лолкекчибурек1  16.04.2019 23:00
program z1;
uses crt;
var a, b: integer;
begin
read (a, b);
while a<>b do
if a>b then a:=a-b else b:=b-a;
 writeln (a);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Другие предметы
90125 90125  19.12.2021 19:09
ответы астрономия 14 сентября...
MrMut222 MrMut222  19.12.2021 18:42
Как образование влияет на нравственость?...
gabadunka gabadunka  19.12.2021 18:36
Анализ данных. Вычислить доверительную вероятность...
228pfxt 228pfxt  03.10.2019 09:36
Срешением. данные по 15 строке...
annakolupaewa20 annakolupaewa20  04.10.2019 14:10
Эссе на тему қызыл кітабы на казахском языке. !...
KoTuK405 KoTuK405  04.10.2019 14:10
Решите ! ввести с клавиатуры n разрядное число, определить является ли произведение всех разрядов четным или нечетным числом без массивов...
Zahar4472 Zahar4472  04.10.2019 14:10
Паскаль.как удвоить значения чётных столбцов матрицы? program d1; type mas=array [1..5,1..5] of integer; const x: mas=((1,2,3,4,,4,3,2,,7,8,9,,12,13,14,,9,8,7,6)); var q,a: mas; i,j:...
elenatsushko elenatsushko  04.10.2019 14:10
Коротко о романе.какую роль играет маша троекурова в романе 3-4 предложение. рассказ дубровский 6 класс...
yuliasitnikova yuliasitnikova  04.10.2019 14:10
Решите 2 . 1.определите работу по сжатию пружины жесткостью k=2000 h/м на 3 см. 2. тело массой 3 кг обладает потенциальной энергией 4000 дж, находясь на некоторой высоте в состояние...
pashamironov20 pashamironov20  04.10.2019 14:10
Іть з контрольною будь ласка)при яких значеннях m вектори a(2 m; -1) і b(-8; m) колінеарні...

Популярные вопросы