Забыли логин? - Система программирования PascalABC.NET

Случайная программа
// Алгоритм Евклида // нахождения НОД 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.

Баннеры

Забыли логин?