Меню сайту

Пошук

Наше опитування
Що є найбільш корисним на сайті? Конспекти Реферати Задачі Паскаль Презентації Плани до творів Твори за шкільною програмою Інше Результати \| Архів опитувань Всього відповідей: 607

Що нового?

Форма входу

Міні-чат
Щоб додати необхідна авторизація

алгоритм Евкліда або НСД

program evklid;
var x,y,b,a: integer;
begin
writeln ('vvedit dva chisla');
readln (x,y);
while x<>y do
if x>y then x:=x-y
else
y:=y-x;
writeln (x);
readln
end.

Статистика
Онлайн всього: 1 Гостей: 1 Користувачів: 0

Календар

Архів записів

Друзі сайту

Guide-for-students © 2021

Створити безкоштовний сайт на uCoz