Форумы на Хакер

Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.

Задачка по абрамову. Паскаль

Пользователи, просматривающие топик: none

Зашли как: Guest

Все форумы >> [Компилируемые языки] >> Задачка по абрамову. Паскаль

Имя

Сообщение

<< Старые топики Новые топики >>

Задачка по абрамову. Паскаль - 2011-02-23 16:15:06.113333

canavaro

Сообщений: 3
Оценки: 0
Присоединился: 2011-02-22 17:18:56.666666

Даны целые числа p, q,a1,…..,a67 (p>q≥0). В последовательности а1, ….., а67 заменить нулями члены, модель которых при делении на p дает в остатке q.

Post #: 1

RE: Задачка по абрамову. Паскаль - 2011-02-23 16:38:51.763333

Alianna

Сообщений: 1922
Оценки: 356
Присоединился: 2010-03-02 11:27:12.343333

quote:

модель

Мб модуль?) Тогда как то так

for i := 1 to 67 do
 if ((abs(a[i]) mod p) = q) then
 a[i] := 0;

Post #: 2

Страниц: [1]

Все форумы >> [Компилируемые языки] >> Задачка по абрамову. Паскаль

Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.