Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
naty7773
12 / 0 / 0
Регистрация: 27.04.2011
Сообщений: 42
1

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

11.04.2012, 23:46. Просмотров 676. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста с задачей
Заполнить массив:
а) двадцатью первыми натуральными числами, делящимися нацело на 13 или на 17 и большими 30;( В Pascal)
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.04.2012, 23:46
Ответы с готовыми решениями:

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

Заполнить массив случайными числами и вывести отсортированный массив на экран
:wall::help:доработать код, сортировка метод - слиянием. Заполнить массив случайными числами и...

Заполнить массив случайными числами и вывести на экран отсортированный массив.
Заполнить массив случайными числами и вывести на экран отсортированный массив. Добавлено через 3...

Заполнить массив случайными числами и выделить в другой массив все числа,которые встречаются более одного раза
Помогите пожалуйста!Вот задание:заполнить массив случайными числами и выделить в другой массив все...

Заполнить массив числами 1 1 2 3 5 8
Заполнить массив числами 1, 1, 2, 3, 5, 8, ... (первые два числа - единицы, каждое последующее...

2
ermolay
3430 / 2369 / 2131
Регистрация: 04.12.2011
Сообщений: 3,965
12.04.2012, 11:28 2
Лучший ответ Сообщение было отмечено naty7773 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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.
1
naty7773
12 / 0 / 0
Регистрация: 27.04.2011
Сообщений: 42
10.05.2012, 15:54  [ТС] 3
Спасибо!!!!!!!!!!!!!!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2012, 15:54

Заполнить массив Ci числами
Нужно заполнить массив Ci случайными числами от -100 до 100

Заполнить массив нечетными числами 1,3,5,7...
Составить программму заполнения массива числами:1,3,5,7,9,11,13,15,17,19

Заполнить массив дробными числами
У меня вопрос: как заполнить массив дробными числами из диапозона от 0 до 1. Помогите, пожалуйста!...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru