Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Программа отыскания номера первой по порядку буквы "A" в слове X Всем здравствуйте, благодарю за внимание к моему сообщению. Прошу помочь мне в создании следующей программы. задача: Составить программу, отыскивающую номер первой по порядку буквы "A" в слове X. Спасибо внимание ! https://www.cyberforum.ru/ turbo-pascal/ thread545608.html Массив: Объединить исходные массивы А и В в массив С так, чтобы он был упорядочен. Turbo Pascal
Одномерный массив А из N элементов упорядочен по возрастанию, и одномерный массив B из M элементов упорядочен по возрастанию. Объединить их в массив С так, чтобы он тоже был упорядочен.
Turbo Pascal Составить программу, выводящую строку "обратной лесенкой" https://www.cyberforum.ru/ turbo-pascal/ thread545599.html
Составить программу, выводящую строку "обратной лесенкой" (см рисунок) и определяющую количество слов в тексте. В программе должен быть обеспечен ввод строки и вывод на экран результата. По окончании каждого расчета и просмотра результатов предусмотреть очистку экрана, возобновление расчетов с другой строкой ("бесконечный цикл") или выход из программы. В программе должна использоваться хотя бы...
Turbo Pascal Массив: В массиве, где содержится больше всего четных элементов, выделить желтым цветом четные элементы Даны два двумерных массива. В том из них, где содержится больше всего четных элементов, выделить желтым цветом четные элементы. Ввод, вывод и окрашивание элементов организовать в виде процедур, подсчет элементов – в виде функции. https://www.cyberforum.ru/ turbo-pascal/ thread545598.html
Вычислить значение выражения Turbo Pascal
Program lab4_20; const n=10; var x : array of real; y : array of real; v : array of real; a,b,h,s,m,d,max1,max2,min1,min2,q: real; i,j,z,c,w,r:integer; begin
Turbo Pascal Составьте алгоритм, упорядочивающий элементы массива, стоящие на нечётных местах, в возрастающем порядке https://www.cyberforum.ru/ turbo-pascal/ thread545569.html
помогите пожалуйста, очень нужно в скором времени... Составьте алгоритм, упорядочивающий элементы массива, стоящие на нечётных местах, в возрастающем порядке, а на нечётных - в убывающем. (метод простого обмена) Добавлено через 21 час 44 минуты добрые люди, решите пожалуйста задачу..!
Turbo Pascal Ввести из клавиатуры натуральное число. https://www.cyberforum.ru/ turbo-pascal/ thread545549.html
Ввести из клавиатуры натуральное число. Найти сколько раз заданная цифра А встречается в числе. Определить ли сумма цифр заданного числа больше В, а именно число делящееся на В? Добавлено через 48 минут Помогите пожалуйста
Текстовые файлы. Найти сумму первого и последнего компонента в каждой строке файла Turbo Pascal
Дан текстовый файл,который содержит целые числа по несколько в каждой строке.Найти сумму первого и последнего компонента в каждой строке файла и записать найденные суммы в новый текстовый файл.
Turbo Pascal Текстовый файл. Найти самое длинное слово среди слов, начинающихся с буквы «о» https://www.cyberforum.ru/ turbo-pascal/ thread545541.html
Создать текстовый файл, строки которого содержат слова. Найти самое длинное слово среди слов, начинающихся с буквы «о». Если таких слов несколько, то найти последнее из них. Результат поместить в новый файл.
Turbo Pascal Вывести на экран таблицу значений функции 1)Составить программу, которая выводит на экран таблицу значений функции. y=(x-2x+1)/ln(1-x) для Х от Хо к Х1 с шагом h. 2)Вычислить значеня функции y=x(2x-1)(4x-1)(6x-1)...(nx-1) если х=1,n=7 ПОЖАЛУЙСТА ПОМОГИТЕ!!!!!!!! Добавлено через 1 час 18 минут upupupup Добавлено через 1 час 4 минуты https://www.cyberforum.ru/ turbo-pascal/ thread545538.html
Turbo Pascal Составить программу подсчета глухих согласных букв слова x , что используются при написании x дважды
Очень прошу о помощи! Составить программу подсчета глухих согласных букв слова x , что используются при написании x дважды Заранее спасибо .
Turbo Pascal составить программу считающую F:=C+(A/10)+(B/(10-C+A)) https://www.cyberforum.ru/ turbo-pascal/ thread545527.html
ПОЖАЛУЙСТА ПОМОГИТЕ Cоставить программу для вычисления F:=C+(A/10)+(B/(10-C+A)) где A - номер первого нулевого элемента двумерного массива 3*4; B - сумма элементов массива с нечетными номерами; C - количество элементов массива, больших D ( ввести D с консоли ). Данная программа не правильно считает F:=C+(A/10)+(B/(10-C+A)) так как...
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
12.04.2012, 11:28 0

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

12.04.2012, 11:28. Показов 1186. Ответов 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.


Вернуться к обсуждению:
Массив. Заполнить массив числами, делящимися нацело на 13 или на 17 и большими 30 Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.04.2012, 11:28
Готовые ответы и решения:

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

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

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

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

2
12.04.2012, 11:28
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.04.2012, 11:28
Помогаю со студенческими работами здесь

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

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

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

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru