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

Найти нод(нод(a,b),c).алгоритм евклида.pascal

Нажмите на рекламу ниже и сразу увидите ответ

↓

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

rotaru1930

24.07.2020 12:28

пожежуто 1. Создать программу, которая, за сторону квадрата, выдает, чему равен его периметр и площадь. 2. Создать программу, которая, за целое двухзначное число, выдает,...

Uoywex

06.10.2021 13:07

Запиши термины обозначение соответсвующие понятия...

kburuncenco307

05.06.2020 06:39

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

ersnobestoy9uo8

26.05.2023 22:47

5. (20 ) в марксе будет открыто новое справочное бюро. целями даннойкомпании являются сбор и распространение информации о различных предприятиях.создать базу данных номеров...

Rustam7887

12.02.2020 14:05

Паскаль Проверить все ли (заданные) элементы первой структуры встречаются во второй....

Melenocka0606

28.04.2021 08:20

Оглавление. Урок 2 Выбрать соответствующий пункт из спискаОткрыть раскрывающийся список «Разрывы»Выбрать пункт меню «Параметры страницы»Выбрать пункт меню «Разметка страницы»...

adebora

25.05.2022 08:52

напишите решение задач 1. Майя, передала файл 8 Мбайт по каналу связи 512 Kbit/s. Сколько времени она на это затратила? 2. Андрей, скачал файл за 8 минут 32 секунды, весом...

dubay080p0drxr

08.01.2022 10:06

Какие периферийные устройства вы знаете?...

zologiru

26.04.2021 10:14

Зашифруй следующие слова с шифра Цезаря. а) Код. Шаг позиции равен 2.б) Цезарь. Шаг позиции равен 5....

Olhast

05.12.2022 03:12

расшифруйте это слово? И ещё 1.00 10.0 100 что это? Если чё это загадка в игре PUBG Mobile....

Ответ:

malinka1212

10.07.2020 01:48

Program zzz;
var a,b:integer;
begin
readln(a,b) ;
while a<>b do
begin
if a>b then a:=a-b
else b:=b-a;
end;
writeln(a);
end.

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

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

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