Войти Регистрация Спроси ai-bota

Программа евклида в паскаль где нод 40 и 64

Показать ответ

Ответ:

malaya108

07.09.2020 19:25

PROGRAM P_1;
VAR
A,B: INTEGER;
BEGIN
A:=40;
B:=64;
REPEAT
IF A>B THEN A:=A-B
ELSE B:= B-A;
Until A=B;
WRITELN ('NOD = ' , A);
END.

0,0(0 оценок)

Популярные вопросы: Информатика

orton1999

29.09.2022 13:52

В электронном учебнике 512 страниц. Сергей установил закладку на 20-й странице. Какое количество информации несёт это сообщение? ?...

ГораСлез

19.02.2023 14:18

Составьте программу на паскале переводящую дробное не десятичное число с основанием р(2-9) в десятичную систему счисления...

MoNKinsN

10.06.2020 08:22

Стестом по информатике! какое программное обеспечение можно легально скачивать в интернете? (могут подходить сразу несколько вариантов) свободное бесплатное условно-бесплатное...

donatas6969

22.09.2020 01:53

Яке реченя називається командою? наведіть приклад команд Срчно і наведіть приклад...

llllllllllllll1

21.09.2021 01:58

Python Задано список з n цілих чисел. Визначте кількість елементів, значення яких дорівнюють цілому числу c. Вводиться значення n, список з n елементів та значення...

kaban229

25.03.2022 05:57

Напишите практическую по географии...

Lol11111111000

04.07.2022 23:50

По стволу дерева, высота которого 3м, от земли ползет гусеница. Днем она поднимется на 45 см, а ночью опускается на 15 см. Через сколько суток гусеница доползет до...

tigr951

27.10.2022 00:08

после того как почтальон разложил в 28 ящиков по три журнала у него осталось в два раза больше журналов чем разложил сколько журналов было у почтальона решите задачу...

santop

05.11.2022 13:27

Пятно в музыке это надо по музыке...

keckush

20.03.2021 06:00

составить план на вопрос нужны ли будут книги на печатной основе ...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку