Массив. Заполнить массив числами, делящимися нацело на 13 или на 17 и большими 30 - Turbo Pascal

Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.67/6:

@naty7773 12 / 0 / 0 Регистрация: 27.04.2011 Сообщений: 42
		1
	Массив. Заполнить массив числами, делящимися нацело на 13 или на 17 и большими 30 11.04.2012, 23:46. Показов 1225. Ответов 2 Метки нет (Все метки) Помогите пожалуйста с задачей Заполнить массив: а) двадцатью первыми натуральными числами, делящимися нацело на 13 или на 17 и большими 30;( В Pascal) 0

Заказать работу у эксперта

Лучшие ответы (1)

Сообщение: #2902633

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

11.04.2012, 23:46

Ответы с готовыми решениями:

Заполнить одномерный массив числами, делящимися нацело на 17 или 13 и больше 300
Заполнить одномерный массив из 12 элементов первыми натуральными числами,делящимися нацело на 17...

Заполнить массив числами, делящимися нацело на 13 или на 17 и большими 300
заполнить массив двадцатью первыми натуральными числами, делящимися нацело на 13 или на 17 и...

Заполнить массив двадцатью первыми натуральными числами, делящимися нацело на 13 или на 17 и большими 300
заполнить массив двадцатью первыми натуральными числами делящимися нацело на 13 или на17 и...

Заполнить массив двадцатью первыми натуральными числами, делящимися нацело на 13 или на 17 и большими 300
1. Заполнить массив: а) двадцатью первыми натуральными числами, делящимися нацело на 13 или на 17...

ermolay

3451 / 2389 / 2135

Регистрация: 04.12.2011

Сообщений: 3,966

12.04.2012, 11:28

Сообщение было отмечено naty7773 как решение

Решение

Pascal

const
  n=20;
var
  a: array[1..n] of integer;
  i,k: integer;
begin
  writeln('massiv:');
  i:=30; k:=0;
  while k<20 do
  begin
    inc(i);
    if (i mod 13=0)or(i mod 17=0) then
    begin
      inc(k);
      a[k]:=i;
      write(a[k],' ');
    end;
  end;
  readln;
end.

@naty7773 12 / 0 / 0 Регистрация: 27.04.2011 Сообщений: 42
	10.05.2012, 15:54 [ТС]	3
	Спасибо!!!!!!!!!!!!!! 0

	10.05.2012, 15:54

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

10.05.2012, 15:54

Помогаю со студенческими работами здесь

Заполнить массив двадцатью первыми натуральными числами, делящимися нацело на 13 или на 17 и большими 300
а) двадцатью первыми натуральными числами, делящимися нацело на 13 или на 17 и большими 300; б)...

Заполнить массив двадцатью первыми натуральными числами, делящимися нацело на 13 или на 17
Заполнить массив двадцатью первыми натуральными числами, делящимися нацело на 13 или на 17 и...

Заполнить массив двадцатью первыми натуральными числами, делящимися нацело на 13 или на 17 и находящимися в ин
Заполнить массив двадцатью первыми натуральными числами, делящимися нацело на 13 или на 17 и...

Заполнить массив двадцатью первыми натуральными числами, делящимися нацело на 13 и 17.
1 Заполнить массив двадцатью первыми натуральными числами, делящимися нацело на 13 и 17. 2 Имеется...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи
Как подключить JavaScript файл в другом JavaScript файле InfoMaster 20.01.2025 В современной веб-разработке организация кодовой базы играет ключевую роль в создании масштабируемых и поддерживаемых приложений. Модульность и правильное структурирование кода стали неотъемлемыми. . .	Как откатить изменения в исходниках, не внесенные в Git InfoMaster 20.01.2025 При работе с системой контроля версий Git разработчики часто сталкиваются с необходимостью отменить внесенные изменения в исходном коде. Особенно актуальной становится ситуация, когда изменения еще. . .	В чем разница между px, in, mm, pt, dip, dp, sp InfoMaster 20.01.2025 В мире цифрового дизайна и разработки интерфейсов правильный выбор единиц измерения играет ключевую роль в создании качественного пользовательского опыта. История развития систем измерений для. . .	Как изменить адрес удалённого репозитория (origin) в Git InfoMaster 20.01.2025 В терминологии Git термин origin является стандартным именем для основного удаленного репозитория, с которым взаимодействует локальная копия проекта. Когда разработчик клонирует репозиторий с. . .	Как переместить последние коммиты в новую ветку (branch) в Git InfoMaster 20.01.2025 При работе над проектом часто возникают ситуации, когда необходимо изолировать определенные изменения от основной линии разработки. Это может быть связано с экспериментальными функциями, исправлением. . .	Как вернуть результат из асинхронной функции в JavaScript InfoMaster 20.01.2025 Асинхронное программирование представляет собой фундаментальную концепцию в JavaScript, которая позволяет выполнять длительные операции без блокировки основного потока выполнения программы. В. . .
Какой локальный веб-сервер выбрать InfoMaster 19.01.2025 В современной веб-разработке локальные веб-серверы играют ключевую роль, предоставляя разработчикам надежную среду для создания, тестирования и отладки веб-приложений без необходимости использования. . .	Почему планшеты и iPad уже не так популярны, как раньше InfoMaster 19.01.2025 Эра революционных инноваций История планшетов началась задолго до того, как эти устройства стали привычными спутниками нашей повседневной жизни. В начале 1990-х годов появились первые прототипы,. . .	Как самому прошить BIOS ноутбука InfoMaster 19.01.2025 BIOS (Basic Input/ Output System) представляет собой важнейший компонент любого компьютера или ноутбука, который обеспечивает базовое взаимодействие между аппаратным и программным обеспечением. . .	Какой Linux выбрать для домашнего компьютера InfoMaster 19.01.2025 Современные реалии выбора операционной системы В современном мире выбор операционной системы для домашнего компьютера становится все более важным решением, которое может существенно повлиять на. . .	Как объединить два словаря одним выражением в Python InfoMaster 19.01.2025 В мире программирования на Python работа со словарями является неотъемлемой частью разработки. Словари представляют собой мощный инструмент для хранения и обработки данных в формате "ключ-значение". . . .	Как без исключения проверить существование файла в Python InfoMaster 19.01.2025 При разработке программного обеспечения на Python часто возникает необходимость проверить существование файла перед выполнением операций с ним. Это критически важная задача, которая помогает избежать. . .

Наверх