Ломакин Александр Владимирович
Учитель физики и математики
МБОУ "Ладомировская средняя общеобразовательная школа
Ровеньского района Белгородской области"

Почетный работник общего образования РФ

Главная
Немного о себе
Размышления о жизни
Фото
Достижения
Моя гордость
Гостевая книга
Карта сайта

Село Ладомировка
Летопись села
Достопримечательности
Жители села
Администрация
ФАП (медпункт)
Почта и сберкасса
Детский сад
Дом культуры
Библиотека
МТС
СПК "Ленинский путь"

Ровеньский район
Школы Ровеньского района

Моя школа
Летопись школы
Школьный музей
Новости школьной жизни
Учителя
Учителя-пенсионеры
Фотогалерея
Выпускники
Гимн и герб школы

Напишите мне:
ladlav@yandex.ru

Рейтинги сайта

Программа для нахождения количества делителей числа

Олимпиадная задача.

Дано натуральное число А (вводится с клавиатуры). Составить программу, позволяющую найти а) количество делителей этого натурального числа, б) сколько делителей этого числа – четные.

Решение.

Program zad5

DEFINT i, l, n

CLS

INPUT “n=”; n

FOR i=1 TO n\2

IF n MOD i=0 THEN PRINT “i=”; i; ” “: k=k+1

IF (n MOD i=0) AND (i MOD 2 = 0) THEN l=l+1

PRINT “делителей =”; k; “четных =”; l

END

Program zad5;

uses crt;