Войти
Регистрация
Спроси ai-bota
literaturas
08.07.2021 11:09
Напишите программу на языке pascalabc.net которая с алгоритма евклида вычисляет нод.
Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
yarik159
16.01.2021 04:10
Водной из сказок герою даётся поручение иди туда не знаю куда принеси то не знаю что можно ли набор действий считать алгоритмом...
Filipin2030
16.01.2021 04:10
Написать в pascal abc дано n чисел. найти самое большое число, на которое делятся все n чисел. входные данные в первой строке дано число n. во второй строке даны через...
Аделя6661
22.05.2022 08:33
Y=(a^2+1)/sqrt(a^2+1) составить программу в паскаль...
Валерияжеле
27.10.2021 01:42
Заполните пропуски гбайт==2621440 кбайт...
alinkarazborova
09.06.2022 09:17
ЯЗЫК ПРОГРАММИРОВАНИЯ PYTHON РЕШИТЕ 2 задачи ИНФОРМАТИКА...
FGHJER
12.10.2020 06:24
Цикл используяfor. .4. Рассмотрите блок-схему и составьте трассировочную таблицу.[4]НачалохУсловияШаг Операция12A10B.9Ввод А В3A B4X=AX=BВывод Спобыстрее ставлю все бвлы...
Белова1234567890
30.04.2022 14:31
Здравствуйте ребята. Напоминаю, что у Вас задание по информатике в тетради. Нужно записать примеры решения задач из учебника и придумать свои задачи (и их решить)...
рапкмаркмарк
27.02.2022 18:14
На острове живут рыцари и лжецы, всего 2019 человек. рыцари всегда говорят правду, а лжецы лгут. каждый житель острова заявил: «среди оставшихся жителей острова более...
ЕвгешаК2003
27.02.2022 18:14
Сопоставьте язык программирования с годом его появления. fortran 1957 go c php erlang groovy перетащите элементы на пустые поля сверху (каждый может быть использован несколько...
hasmikaydinyan
27.02.2022 18:14
Объясните : объем данных=80 мб скорость передачи данных из пункта а в пункт б - 2^23 бит/с скорость передачи данных из пункта б в пункт в - 2^20 бит/с время получения...
Ответ:
Чика1без2ника
16.08.2020 14:01
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=ReadInteger2('Введите через пробел два натуральных числа:');
while b>0 do
(a,b):=(b, a mod b);
Writeln('НОД = ',a)
end.
0,0
(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота