Воскресенье, 19.11.2017, 04:03
информатика пәні мұғалімінің сайты
сайт учителя информатики
Приветствую Вас Гость | RSS
Главная Каталог статей Регистрация Вход
Iздеу/Поиск

Aуа райы/Погода

Kіру / Вход

Сабаққа / К уроку

Mазмұны/Содержание

Мақалалар / Статьи
Решение задач

Рейтинг




счетчик посещений

Статистика
Онлайн всего: 1
Гостей: 1
Пользователей: 0

Посетители за день

Главная » Статьи » Мои статьи

Решение примерные задания 4 тура>Задача D. Простые числа.
program pr;
label M1; //Метка
var a,x,y,z:longint;
begin
M1: //Начало метки
a:=0;
readln (y);
for x:=1 to y do
begin
if y mod x=0 then
a:=a+1
end;
if a=2 then writeln ('YES')
else writeln ('NO');
goto M1; //Возврат к метке M1
end.
Категория: Мои статьи | Добавил: ADIL_2011 (05.04.2011)
Просмотров: 396 | Комментарии: 4 | Рейтинг: 5.0/4
Всего комментариев: 4
3  
то что я искал, спасибо

4  
не за что.всегда рады помочь cool

2  
program pr;
var к,x,y,z:longint;
begin
readln (y);
for x:=1 to y do
begin
к:=0;
if y mod x=0 then
к:=к+1
end;
if к=2 then writeln ('YES')
else writeln ('NO');

end.


1  
biggrin

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Іздеу / Поиск

Маңызды / Важно

Казахский язык

Друзья сайта
  • Сайт учителя информатики (мой новый сайт).
  • Сайт библиотеки ГУ "ФМЛ...".

  • Сайт учителя информатики.
  • Сайт учителя географии.
  • Сайт учителя математики.

  • Информатика и ИКТ в современной школе.
  • Методическая копилка
    Методическая копилка учителя информатики
    на этом сайте я также размещаю свои материалы

  • Сұрақ / Опрос
    Менің сайтымды бағалаңдар / Оцените мой сайт
    Жауаптардың барлығы / Всего ответов: 66

    Пайдалы / Полезно
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz
  • Посетители сайта

  • Мои гости
    free counters

    Расположение

    учитель информатики Ковальчук Вероника Владимировна © 2017 Создать бесплатный сайт с uCoz