1. Информатика
  2. Написать либо процедуру либо

Написать либо процедуру либо функцию на вычисление найбольшего общего делителя.

BREYKER BREYKER    2   02.06.2019 15:40    0

Ответы
Tahir353 Tahir353  03.07.2020 10:52
Function Nod(a,b:integer):integer;
begin
 if a>b then Nod:=Nod(a-b,b)
 else
   if a<b then Nod:=Nod(a,b-1)
   else  Nod:=a; 
end;
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
KristheMalen KristheMalen  17.03.2021 20:24
Практична робота #4 НАДО НА ЗАВТРА​...
lida50 lida50  17.03.2021 20:25
Дан одномерный массив целых чисел, состоящий из 19 ячеек, заполненный случайными числами из промежутка [-75,24] найди среднее арифметическое положительных четных элементов...
innarudenkoco innarudenkoco  19.06.2019 16:00
Найти сумму чисел: а) 1101100,0012 + 10011011,102; - двоичная система б) 17428 + 3568 - восьмиричная система...
torivova2004 torivova2004  19.06.2019 16:00
Доклад на тему вычеслительной техники...
elenabradulina elenabradulina  01.04.2020 20:43
Сканируется цветное изображение размером 5 х 8 см. Разрешающая сканера — 300 х 600 dpi, глубина цвета — 8 бит. Какой информационный объём будет иметь полученный графический...
lerakendrick lerakendrick  01.04.2020 20:22
решить! В строке «Я программист» удалить каждую вторую букву. На C#....
yil yil  01.04.2020 20:31
Какое из перечисленных слов не относится к служебным словам языка программирования Паскаль? Read Begin Or Print Если значение переменной будет любое число от -32 768...
katekurmakaeva katekurmakaeva  01.04.2020 20:20
Что будет напечатано в результате выполнения процедуры? procedure proc; var x, y, z:integer; begin x:=17; y:=x div 5; z:=y mod 2; write(z); end; begin proc; end....
0HIMiK0 0HIMiK0  10.04.2020 12:42
1. Подсчитайте, сколько байт в памяти занимает рисунок размером 20 на20 пикселов, закодированный с палитрой 64 цветов. Место дляхранения палитры не учитывайте. 2. Подсчитайте,...
SashaZaisnik1 SashaZaisnik1  10.04.2020 12:42
По введенному радиусу вывести длину окружности: C=2*П*r УМОЛЯЮ ПОМГИТЕ...

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