1. Информатика
  2. Написать программу для нахождения

Написать программу для нахождения нод abc pascal

tanygina067 tanygina067    2   13.07.2019 21:30    0

Ответы
lizalubavina lizalubavina  07.09.2020 11:25
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.
ПОКАЗАТЬ ОТВЕТЫ
топтип топтип  07.09.2020 11:25
Var a,b,nod:integer;
begin
readln(a,b);
if a>=b then nod:=a mod b else nod:=b mod a;
writeln(nod)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
aium08 aium08  25.07.2019 06:00
Дан массив из 15 чисел заполненный случайными числами из интервала [-20; 20]. определить , что больше среднее арифметическое элементов стоящих на четных местах или среднее...
ggggggft ggggggft  25.07.2019 06:00
Какую формулу нужно записать в ячейку а1 чтоб , растянув эту ячейку на остальные получилась такая пирамида из 111 010 000 единиц. все это делается в calc...
Taras229 Taras229  26.12.2021 08:36
Из двух простых высказываний A = «Коля читает газету»; G = «Коля пьёт чай» составили сложное высказывание «Коля читает газету или не пьёт чай».   Какой из предложенных вариантов...
Гогого11 Гогого11  26.12.2021 08:41
Сор по информатике 7 класс...
dima200756 dima200756  26.12.2021 08:47
Нужно написать программу на языке Паскаль....
RamzesCake RamzesCake  26.12.2021 08:51
Написать программу, реализующую процедуры заказа и расчета его суммы в мини — пиццерии. В меню пиццерии предусмотрено 4 вида пиццы и три вида напитков. Пользователю выводится...
jadeholden451 jadeholden451  26.12.2021 08:53
Робу выбить все камни команды соперника! Для этого нужно попасть своим камнем в каждый камень соперника слева, закрасив нужные клетки. ДЕЛАЮ ОТВЕТ ПРЕМИУМОМ...
132427 132427  26.12.2021 08:57
Выберите верное соответствие.а) стили страницыб) стили абзацав) стили спискаг) стили символад) стили врезок1) 1 – г, 2 – б, 3 – д, 4 – а, 5 – в2) 1 – б, 2 – г, 3 – а, 4...
элог элог  26.12.2021 08:59
Одноклассники передают друг другу пакет документов объёмом 32 Мбайт. Игорь и Степан используют только канал связи, не архивируя документы. Скорость передачи данных — 223...
milerowskaya milerowskaya  13.09.2019 14:10
Волимпиаде по участвовало 100 учеников,из них 50 девочек и 30 мальчиков.укажите основание системы счисления,в которой записаны эти сведения....

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