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

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

Kіру / Вход

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

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

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

Рейтинг




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

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

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

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

Решение примерные задания 4 тура>Задача Е. Бедные родственники.
Пример:
ввод
5
1998 1999 2000 2010 2012
вывод
Happy
Happy
Not happy
Happy
Not happy

program noname;
uses crt;
var x,y,z:longint;
begin
clrscr;
read (x); 
for y:=1 to x do
begin
read (z);
if (z mod 400=0) or ((z mod 100<>0) and (z mod 4=0)) then writeln ('not happy') else
writeln ('happy');
end;
readkey;
end.
Категория: Мои статьи | Добавил: ADIL_2011 (07.04.2011)
Просмотров: 356 | Рейтинг: 5.0/1
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Іздеу / Поиск

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

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

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

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

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

  • Сұрақ / Опрос
    Сіз сайтқа қай мақсатпен кірдіңіз? / С какой целью вы посетили сайт?
    Жауаптардың барлығы / Всего ответов: 73

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

  • Мои гости
    free counters

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

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