Задачка ЕГЭ - Паскаль, Turbo Pascal, PascalABC.NET

PascalABC_ · 24.06.2015, 10:20

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

Serge_Bliznykov · 24.06.2015, 10:50

Код:

Write('Чётные числа, которые не делятся на 7: ');
for i:=1 to 25 do
  if not odd(A[i]) and ((A[i] mod 7) <> 0) then Write(A[i],' ');

newerow1989 · 25.06.2015, 18:33

А я не понял! А почему тексты заданий удаляются?

Stilet · 26.06.2015, 08:58

Видимо компромат на мин образования

24.06.2015, 10:20	#1
PascalABC_ Новичок Джуниор Регистрация: 24.06.2015 Сообщений: 4	Удалено Удалено, спасибо Последний раз редактировалось PascalABC_; 24.06.2015 в 12:24.

24.06.2015, 10:50	#2
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	Код: `Write('Чётные числа, которые не делятся на 7: '); for i:=1 to 25 do if not odd(A[i]) and ((A[i] mod 7) <> 0) then Write(A[i],' ');`

25.06.2015, 18:33	#3
newerow1989 Я самый любопытный Участник клуба Регистрация: 24.07.2012 Сообщений: 1,987	А я не понял! А почему тексты заданий удаляются? С запрограммированным приветом, Неверов Евгений! Сайт: http://newerow1989.ru [Паскаль] [Delphi]

26.06.2015, 08:58	#4
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Видимо компромат на мин образования I'm learning to live...

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск