Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Процедура и Функция Всем привет, друзья! Имеется решенная задача. Вот условие: Даны натуральные числа а1, ..., a10. Предположим, что имеются 10 видов монет достоинством а1, ...., a10. Обозначим через bk число способов, которыми можно вы-платить сумму k, т. е. bk-это число решений уравнения a1x1 + ... + a10x10 = k, где xi, может принимать целые неотрицательные значения. Получить b0, ..., b10. Суть в том, что... https://www.cyberforum.ru/ pascalabc/ thread2210208.html Pascal ABC Возвести число в 4-ю степень
Написать программу, которая запрашивает число с клавиатуры, возводит его в 4-ю степень и выводит результат на экран.
Pascal ABC Шифр Полибия https://www.cyberforum.ru/ pascalabc/ thread2210131.html
Здравствуйте, помогите, пожалуйста, реализовать шифр Полибия. Его суть состоит в следующем: Каждая буква может быть представлена парой букв, указывающих строку и столбец, в которых расположена данная буква. Так представления букв В, Г, П, У будут АВ, АГ, ВГ, ГБ соответственно, а сообщение ПРИКЛАДНАЯ МАТЕМАТИКА зашифруется как ВГВДБВБДБЕАААДВБААЕБЕЕВАААГААЕВАААГАБВБДААЕЕ. 		Pascal ABC Подскажите как составить программу Подскажите как составить программу z=\begin{cases}\ln x+10x^4-15 & \text{, npu } x>0 \\ \operatorname{arctg}x+2^x & \text{, npu } x<0 \end{cases} https://www.cyberforum.ru/ pascalabc/ thread2210108.html
Число равное сумме факториалов своих цифр Pascal ABC
Всем доброго времени суток! На днях наткнулся на одну задачу, решение написал, хочу оптимизировать но не знаю как. Сначала поясню саму задачу. Нужно найти все числа от 0 до 2^31 которые были бы равны сумме факториалов своих чисел Например такими числами являются 1, 2, 145, 40585, потому что 1 = 1!, 2 = 2!, 145 = 1! + 4! + 5!, 40585 = 4! + 0! + 5! + 8! + 5!. В общем код написал, работает... 		Pascal ABC Сформировать файл f целых чисел Сформировать файл f целых чисел. Определить сумму записанных в файл значений. Если сумма неотрицательна, сформировать из файла одномерный массив, в который переписать только положительные компоненты файла. Массив распечатать. Файл типизированный. https://www.cyberforum.ru/ pascalabc/ thread2210014.html
Pascal ABC GraphABC Придумать задачу и решить с помощью procedure в графике https://www.cyberforum.ru/ pascalabc/ thread2209950.html Моделирование гармонического колебания методом Эйлера Pascal ABC
Смоделировать гармоническое колебание, т.е. зависимость X(t) - уравнение синусоиды, методом Эйлера в Паскале. Программа должна выводить значения t, X(t). Попыталась написать два варианта этой программы. Первый вариант - решение уравнения гармонического колебания \ddot{X}+\omega *X=0 методом Эйлера. Смотреть раздел Repeat. Программа не работает. Второй вариант - я внесла изменения в...
Pascal ABC Как, используя sendkeys, послать нажатие клавиши Win? Как с помощью sendkeys послать нажатие клавиши Win? Вопрос в том, что я не знаю кода клавиши Win, который можно использовать в sendkeys На сайте msdn я его не нашел, там эта клавиша не описывается https://msdn.microsoft.com/ru-ru/vba...keys-statement https://www.cyberforum.ru/ pascalabc/ thread2209886.html Pascal ABC Изобразить на экране в аксонометрической проекции проволочный каркас куба, вращающийся вокруг вертикальной оси Изобразить на экране в аксонометрической проекции проволочный каркас куба, вращающийся вокруг вертикальной оси, проходящей через его центр (ранее по ошибке поместила вопрос не в тот раздел, каюсь) https://www.cyberforum.ru/ pascalabc/ thread2209858.html
Массив (поменять местами две части) Pascal ABC
Дано двумерный массив поменять местами две части как рисунке найти их сумму вот фото 		Pascal ABC Для заданной целочисленной матрицы найти минимум среди сумм модулей элементов диагоналей параллельных побочной диагонали https://www.cyberforum.ru/ pascalabc/ thread2209809.html
Для заданной целочисленной матрицы найти минимум среди сумм модулей элементов диагоналей параллельных побочной диагонали. Не могу понять, в чем ошибся, минимум среди сумм выводится 0. const nmax=4; var mas:array of integer; n, i, j, d, minsum, sum:integer; Begin randomize; repeat
1755 / 1347 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
14.03.2018, 19:36 0

Найти сумму элементов массива, стоящих на четных местах и вывести элементы кратные 5 - Pascal ABC - Ответ 12212768

14.03.2018, 19:36. Показов 3587. Ответов 3
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

const n = 20;
var i, sum: integer;
    mas: array [1..n] of integer;
begin
  randomize;
  sum := 0;
  for i := 1 to n do begin
    mas[i] := -35 + random(71);
    write(mas[i], ' ');
    if i mod 2 = 0 then
      sum := sum + mas[i];
  end;
  writeln;
  writeln('sum = ', sum);
  for i := 1 to n do
    if mas[i] mod 4 = 0 then
      write(mas[i], ' ');
end.


Вернуться к обсуждению:
Найти сумму элементов массива, стоящих на четных местах и вывести элементы кратные 5 Pascal ABC
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 14.03.2018, 19:36
Готовые ответы и решения:

Найти сумму всех четных элементов массива, стоящих на четных местах
5.Дан массив целых чисел.Найти сумму всех четных элементов массива, стоящих на четных местах, то...

Найти сумму всех чётных элементов массива, стоящих на чётных местах
1).Найти сумму всех чётных элементов массива, стоящих на чётных местах, то есть имеющие чётные...

Найти сумму всех чётных элементов массива, стоящих на чётных местах
1. Найти сумму всех чётных элементов массива, стоящих на чётных местах, то есть имеющие чётные...

Найти сумму четных элементов массива, стоящих на четных местах
Дан массив B, состоящий из n элементов. Элементы массива ввести с использованием компонента Edit....

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

Найти сумму четных элементов массива, стоящих на четных местах
Вы моя последняя надежда( помогите пожалуйста)) прогу с комментариями... 1. Найти сумму четных...

Найти сумму элементов массива, стоящих на четных местах
найти сумму элементов массива стоящих на четных местах

Найти сумму элементов массива, стоящих на чётных местах
Вводится одномерный массив.Нужно найти сумму элементов, стоящих на чётных местах и при этом...

Найти сумму элементов, стоящих на четных местах массива
Дан массив Аi, i = 1, 2, …, 15. Найти сумму элементов, стоящих на четных местах массива, S1 и сумму...

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