tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Найти нод(нод(a,b),c).алгоритм
Найти нод(нод(a,b),c).алгоритм евклида.pascal
ataev0512
1 12.06.2019 15:40
1
Ответы
ксюша1647
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
СаММЫч
12.02.2021 00:55
Запиши названия блоков lego mindstorms ev 3...
юра416
05.10.2019 00:01
Составить программу для вычисления среднего арифметического из 10 чисел массива....
xalva123
05.10.2019 00:01
Спо информатике вычислить произведение a=2*4*6*8*10 используя операторы while и repeat...
Bbbbkoo
05.10.2019 00:01
Написать программу вывода матрицы в виде таблицы с разделением столбцов. (например, использовать символы «-» и «|»). внимание! программа написана, но надо переделать,...
Matvey2281337
05.10.2019 00:01
Опишите алгоритм лепки снеговика в виде блок-схемы !...
79025585606
04.10.2019 22:52
Программа 1с. используя программное средство 1с: предприятие, получить на печать счет no 51 и оборотно-сальдовую ведомость за январь месяц текущего года на основании следующих...
DASHA135111
04.10.2019 22:48
1)перевести из десятичной системы счисления в двоичную; восьмеричную; шестнадцатеричную: 92, 521. 2)перевести из двоичной системы счисления в десятеричную: 111001101 3)перевести...
OoMaRиNкАoO
04.10.2019 22:47
, , отредактировать текст по информатике. документ прикрепила ниже:...
метал3
04.10.2019 22:27
13. дискеты предназначены для: а) временного хранения информации б) обмена программами и данными между различными пк в) вывода информации на экран г) хранения архивной...
hadizat886
05.10.2019 00:10
Водномерном массиве размером 30 эл хранятся данные об успеваемости учеников класса(дробное) от 2 до 5 включительно 1) заполнить и вывести на экран содержимое массива 2)подсчитать...
Популярные вопросы
Задание 1. Дайте характеристику 1. Хеттского царства 2. Древнего Египта...
1
Цените роль личностей в национально-совободительном восстании 1916...
2
5. Запишите координаты точек А и В. ...
1
Выбери характеристику написания пейзажа верных ответов 2 уголь позволяет...
3
Вопрос № 1 О каком историческом событии идет речь в стихотворении Отечественная...
3
0 You can buy fruit there. 1 You can letters there. 2 You can books...
3
Что показал друзьям своим поступком выпиши из текста ответь на вопросы...
3
Дана точка K(−1). Найди координаты точек P и M, таких, что PM =10 и...
2
, төл мұраларымызды зерттеген ғалымдар кімдер...
3
ТОКА НЕ ПИШИТЕ ФИГНЮ ПО ТИПУ АЩАДАООВОВОВОВЛ НОРМАЛЬНО НАПИШИТЕ СОЧ...
1
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.