Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Переставьте цифры числа в обратном порядке https://www.cyberforum.ru/ pascal/ thread2533179.html С оператором цикла While 2. Дано натуральное число N. Поставьте в обратном порядке (сделал)	Pascal Определить делится ли натуральное число N на сумму своих цифр? С оператором цикла While 1. Дано натуральное число N. Определить делится ли оно на суму своих цифр?
Pascal Написать программу, которая из текстового файла извлекает корректные целые числа и размещает их в целочисленный массив https://www.cyberforum.ru/ pascal/ thread2533131.html Нужно написать программу, которая из текстового файла извлекает корректные целые числа и размещает их в целочисленный массив. Корректным считается число, состоящее из цифр и отделенное от прочего текста символами, отличными от буков. Буду очень благодарен!!!	Pascal Дана матрица, состоящая из n строк и n столбцов или одномерные массивы из n элементов каждый дана матрица, состоящая из n строк и n столбцов или одномерные массивы из n элементов каждый. Составить алгоритм и программу для получения и вывода указаных в условии результатов самих массивов, если изменились какие-либо элементы. Алгоритм любой задачи может быть составлен с искользованием единственного двукратного цикла 1. Получить массив X1,X2,...Xn по правилу X1=1, если элемент Аii больше... https://www.cyberforum.ru/ pascal/ thread2533056.html
Pascal Составить алгоритм и программу для решения задачи с использованием одномерных и двумерных (матриц) массивов составить алгоритм и программу для решения задачи с использованием одномерных и двумерных (матриц) массивов 1. Дана матрица из 3 столбцов и 10 строк. Элементы каждой строки представляют координаты одной из 10 точек трехмерного пространства. Опечатать номера строк, которыми заданы точки. находящиеся между концентрическими сферами с заданными радиусами и центрами вначале координат, и чисто таких...	Pascal Составить подпрограмму решения системы двух линейных алгебраических уравнений по правилу Крамера Всем привет. Есть задание. Работа с Функциями. Составить подпрограмму решения системы двух линейных алгебраических уравнений по правилу Крамера. ax+by=u cx=dy=v Вот листинг программы, который вышел у меня. Помогите - прошу. Получилось для матрицы третьего порядка, однако нужно переделать под второй порядок. https://www.cyberforum.ru/ pascal/ thread2532862.html
Pascal Записать возраст человека прописью Дано целое число n (1<=n<=99), определяющее возраст человека (в годах). Для этого числа напечатать фразу "мне n лет", учитывая, что при некоторых значениях n слово "лет" надо заменить на слово "год" или "года". Помогите, пожалуйста! https://www.cyberforum.ru/ pascal/ thread2532860.html	Вычислить значение функции Pascal y=x/cos^2(x) в паскале
Pascal разработать алгоритм и программу обработки одномерных массивов , используя единственный цикл разработать алгоритм и программу обработки одномерных массивов , используя единственный цикл. https://www.cyberforum.ru/ pascal/ thread2532762.html	Pascal Разработать алгоритм и программу с единственным циклом для обработки одномерных массивов https://www.cyberforum.ru/ pascal/ thread2532759.html разработать алгоритм и программу с единственным циклом для обработки одномерных массивов.
Pascal Написать программу,которая удаляет каждое второе вхождение подстроки(без использования pos,posex,del и т.д,кроме length) Лабораторная работа: Написать программу,удаляющую каждое второе вхождение заданной подстроки,не используя стандартных функций работы со строками(pos,posex,copy,del,insert и т.д,кроме length). Порылся по темам на форуме,нашел пару подобных,но ответа либо нет,либо неправильный.(проверил на себе, препод отказался принимать) Нужно самое простое решение,которое возможно. Помогите,пожалуйста. :help:	Pascal Вычислить значение выражения https://www.cyberforum.ru/ pascal/ thread2532451.html Составить блок схему алгоритма и программу для вычисления функции по формуле, для произвольных исходных данных, с двойной точностью: y=AC^2\sin (xe^{-B\cos (\pi x)})+\frac{16.22\lg (2\pi x^2)}{\sqrt{\|\operatorname{tg}(2\pi Ax^2)\|}}

Cyborg Drone

Модератор

9607 / 4928 / 3251

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

Сообщений: 15,371

19.11.2019, 15:43

Определите сумму элементов последовательности, которые кратны 2, но не кратны 3 - Pascal - Ответ 14010137

19.11.2019, 15:43. Показов 3528. Ответов 2

Метки (Все метки)

Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal

var
  a, k: integer;
 
begin
  a := 1;
  writeln('Введите последовательность чисел, оканчивающуюся нулём:');
  while a <> 0 do
    begin
      read(a);
      if (a mod 2 = 0) and (a mod 3 <> 0) then inc(k)
    end;
  readln;
  write('Количество чсел, кратных двум, но не кратных трём: ', k);
  readln
end.

Вернуться к обсуждению:
Определите сумму элементов последовательности, которые кратны 2, но не кратны 3 Pascal

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

19.11.2019, 15:43

Готовые ответы и решения:

Из элементов массива A, которые кратны 5, но не кратны 3, сформировать массив B
Помогите пожалуйста с задачей в паскале для курсовой работы : Дан массив A(M). Из элементов массива...

Из элементов массива A, которые кратны 5, но не кратны 3, сформировать массив B
Здравствуйте, помогите пожалуйста решить задачу, готовую на паскале, но непонятную в самом...

Найти сумму тех элементов массива, которые кратны K
В массив А занесены натуральные числа.Найти сумму тех элементов,которые кратны данному K.

Найти сумму элементов массива, которые кратны трем
Задать случайным образом одномерный массив из 18 целочисленных элементов, принадлежащих отрезку ....

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

19.11.2019, 15:43

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

Вычисление произведения тех элементов матрицы, которые кратны 3 и не кратны 2
Составьте программу вычисления произведения тех элементов двухмерного массива А(N,M), что кратны 3...

Получить сумму тех чисел данной последовательности которые кратны 3
помогите решить))вообще в этом не смыслю)))а то ссесия летит к чертям...

Получить сумму трех членов данной последовательности, которые кратны 5.
Даны целые числа A1,..., A20. Получить сумму трех членов данной последовательности, которые кратны...

Получить сумму тех чисел данной последовательности, которые кратны 7
Дана последовательность целых чисел A1,..A50. Получить сумму тех чисел данной последовательности,...

Получить сумму тех чисел данной последовательности, которые кратны 5
дано целые числа а1, ., а 50. получить сумму тех чисел данной последовательности, которые кратны 5

Наверх