Меню сайту

Пошук

Наше опитування
Оцінка сайту Відмінно Добре Непогано Погано Жахливо Результати \| Архів опитувань Всього відповідей: 1092

Що нового?

Форма входу

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

Дільник паскаль

program dilnuk;
var i,n: integer;
begin
writeln ('vvedit chislo');
readln (n);
for i:=2 to n div 2 do
if (n mod i=0) then
writeln (i);
readln
end.

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

Календар

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

Друзі сайту

Довідник для учнів та студентів