Паскаль. Цикл с условием. - Форум
Пятница, 09.12.2016, 06:50
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Паскаль. Цикл с условием. (помогите составить текст программы, пожалуйста)
Паскаль. Цикл с условием.
DivixONДата: Воскресенье, 15.05.2011, 11:20 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Даны целые положительные числа A и B. Найти их наибольший общий делитель (НОД), используя алгоритм Евклида: НОД (A, B) = НОД (B, A mod B) если B не равно 0; НОД (A, 0) = A
A=1890 B=6258
НОД (A, B)= 42


Сообщение отредактировал DivixON - Воскресенье, 15.05.2011, 11:21
 
KOT_B_MEIIIKEДата: Воскресенье, 15.05.2011, 12:34 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
Program NOD;
var A,B:integer;
begin
writeln('Vvedite A,B:');read(a,b);
while (a<>b) do
if a>b then a:=a - b
else b:=b - a;
writeln(A);
read(a);
end.
Вообще алгоритм Евклида выглядит так)) Или надо через mod обязательно?
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Паскаль. Цикл с условием. (помогите составить текст программы, пожалуйста)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016