Помоги решить задачки в Паскаль

		uForum.uz > ИКТ и телеком > IT-индустрия > Софт > Программирование > Pascal, Delphi & Builder
Помоги решить задачки в Паскаль

Сообщения за день

Активные темы

Поиск

Знаете ли Вы, что ...
	...для каждой темы существует свой раздел. Изучите структуру форума. Если соответствующего раздела нет, то всегда есть раздел "Разное" :)
	<< Предыдущий совет - Случайный совет - Следующий совет >>

Pascal, Delphi & Builder Вопросы программирования касающиеся Pascal и Delphi

Опции темы

Опции просмотра

19.04.2013 14:34

#11

azics

Оффлайн

Сообщений: 2

+ 0 0/0

– 0 0/0

Цитата:

Сообщение от Nadir Zaitov

Цитата:

Сообщение от JH

azics, три с половиной года спустя Надиру Заитову плевать

да и решение не правильное.

Цитата:

Сообщение от azics

repeat a:=a-b until a=b;

согласен! но это правильное

program NODfinder;
var a,b,nod:integer;
begin
read(a,b);
if a=b then nod:=a else
repeat
begin
if a>b then a:=a-b else b:=b-a;
end;
until a=b;
nod:=a;
write(nod);
end.

Ответить