// Алгоритм Евклида // нахождения НОД var a,b,c: integer; begin writeln('Введите a,b: '); read(a,b); while b<>0 do begin c := a mod b; a := b; b := c; end; writeln('НОД = ',a); end.
Баннеры
Скриншоты: проверяемые задания
Создание шаблона задания
Решение задания для электронного задачника Programming Taskbook
Скриншоты 
