Среда, 08.01.2025
Pascal 4 All
Главная | Регистрация | ВходПриветствую Вас Гость | RSS
Меню сайта
Категории каталога
Задачки циклы и условия [27]
Простые задачки, циклы, условия.
Наш опрос
А вы знали, что кликнув на обьявление в правом блоке раз в день Вы поможете сайту?
Результаты | Архив опросов
Всего ответов: 332

Главная » Статьи » Простые » Задачки циклы и условия

  
Простое число

Program PRACT10;
Uses CRT;
Var N, T: Word;
    f: Boolean;
    i: Word;
Begin
ClrScr;
Write('Введите число: '); ReadLn(N);
If (Odd(N)) then T := N div 3
            else T := N div 2;
For i := 2 to T do
Begin
If (N mod i = 0) then
   Begin
   f := True;
   Break;
   End
End;
If (f) then Writeln('Составное число')
       else Writeln('Простое число');
ReadKey;
End.

Источник:

Категория: Задачки циклы и условия | Добавил: Seqular (23.09.2007) | Автор: Дмитрий
Просмотров: 829 | Рейтинг: 0.0/0 |

Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа
Поиск
Друзья сайта
Статистика
Copyright MyCorp © 2025
Используются технологии uCoz
style=