tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу на языке
Напишите программу на языке pascalabc.net которая с алгоритма евклида вычисляет нод.
vi600081
1 11.09.2019 04:20
1
Ответы
coolpetrov
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Maksim9999v
11.07.2019 11:00
Рисунок размером 512 на 384 пикселей занимает в памяти 168 кбайт (без учёта сжатия). найдите максимально возможное количество цветов в палитре изображения....
Spamm
11.07.2019 11:00
Cоставьте программу которая присвоит переменной х целого типа значение 7 затем вычислите х2 пример: program prim2; uses crt; var a,b,s: real; begin a: =6; b: =8; s: =a*b: write...
master204
12.09.2019 07:40
Закончите предложение : фигуры используют в блок схемах для обозначения. а) начало и конца алгоритма б) ввода или вывода данных в)принятия решения г)выполнения действия...
Rima02
12.10.2019 08:09
ответьте на такой вопросик мне - я использую социальной сети народ надо соблюдать культура взаимоотношений при общении с другими пользователями зачем ? потому что я новичек...
Лианиа
12.10.2019 08:10
Нужно сегодня номер 4 5 6 нужно сравнить числа...
aleksandr17082004
12.10.2019 08:13
Обчисліть довжину двійкового коду деякого тексту за умови, що символи тексту закодовані з використанням таблиці кодів символів windows-1251. у тексті 32 сторінки, кожна сторінка...
поолра
12.10.2019 08:17
Мартышка-мама связала 111 своим непослушным детишкам по перчатке на каждую руку и ногу. но они порвали все свои перчатки, кроме младшего, который порвал только 11. сколько перчаток...
obelardo1
12.10.2019 08:20
Компьютерные сети как средство коммуникации возникли: а) когда появились компьютеры б) когда созрела общественная потребность общение между людьми проживающими в разных точках...
санёк1234567817626
12.10.2019 06:30
64. для трех данных чисел найти произведение наибольшего числа на наименьшее. блок схема,желательно на листочке...
2000120
18.09.2019 21:40
Две массив целых чисел а, состоящий из 15 элементов. найти: сумму нечётных элементов массива...
Популярные вопросы
В зелёном зале кинотеатра 792 мест(-а), а в синем — 800. В зелёном зале на 2...
2
УМОЛЯЮ СОР ПО ИНФОРМАТИКЕ ДА...
1
ответьте 1шысымен 3шысы гана берем...
3
Жердегі сөзіне морфологиялық талдау...
3
соч до 17:00 по kz времени ...
1
В развернутом ответе надо дать описание, привести примеры, факты, доказательства,...
1
Реши уравнение x + 67 х 3 равно 234 a33 b27 s31 d29...
2
1) Две параллельные прямые пересечены третьей , один из углов равен 150°. Найти...
3
Выделительная система собаки как называется...
1
W 4. Дай словесный портрет местоимениям из предложения:«Нам дан во владение...
1
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=ReadInteger2('Введите через пробел два натуральных числа:');
while b>0 do
(a,b):=(b, a mod b);
Writeln('НОД = ',a)
end.