Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.06.2015, 10:20   #1
PascalABC_
Новичок
Джуниор
 
Регистрация: 24.06.2015
Сообщений: 4
По умолчанию Удалено

Удалено, спасибо

Последний раз редактировалось PascalABC_; 24.06.2015 в 12:24.
PascalABC_ вне форума Ответить с цитированием
Старый 24.06.2015, 10:50   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Код:
Write('Чётные числа, которые не делятся на 7: ');
for i:=1 to 25 do
  if not odd(A[i]) and ((A[i] mod 7) <> 0) then Write(A[i],' ');
Serge_Bliznykov вне форума Ответить с цитированием
Старый 25.06.2015, 18:33   #3
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

А я не понял! А почему тексты заданий удаляются?
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 26.06.2015, 08:58   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Видимо компромат на мин образования
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ЕГЭ C4 (C++) 0x44616E69696C Помощь студентам 8 14.02.2013 12:58
С4 Егэ на Си interfeys Помощь студентам 23 29.11.2012 20:25
С4 Егэ на Си interfeys Помощь студентам 2 19.11.2012 10:18
ЕГЭ Xcopy Помощь студентам 6 05.02.2010 14:44