Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Вычисление скалярного произведения Составить прогу для вычисления скалярного произведения векторов X и Y по формуле: S=xy+xy+...+xy, где n=20, x=(tg0.23i)/i, y=sin(i/2) https://www.cyberforum.ru/ pascal/ thread74108.html	оператор case Pascal Добрый вечер! type Month=(jan...dec); days=1..31 Переменной логического типа присвоить значение t:=true или t:=false в зависимости от того образует ли сумма 2 введенных чисел правильную дату или нет; Например(31 июня). Начало у меня есть, но опять не знаю как продолжить( Помогите пожалуйста Uses crt; type Month=(jan,feb,mar,apr,may,jun,jul,aug,sept,oct,nov,dec); ...
Pascal 8. Дана строка S и число N. Преобразовать строку S в строку длины N следующим образом: если длина строки S больше N, то отбросить первые символы, если https://www.cyberforum.ru/ pascal/ thread74101.html 8. Дана строка S и число N. Преобразовать строку S в строку длины N следующим образом: если длина строки S больше N, то отбросить первые символы, если длина строки S меньше N, то в ее начало добавить символы "." (точка).	Pascal Заполнить матрицу по спирали. Добрый вечер. Нужно составить массив 7х7 из чисел от 1 до 49, вот такой. 1 2 3 4 5 6 7 24 25 26 27 28 29 8 23 40 41 42 43 30 9 22 39 48 49 44 31 10 21 38 47 46 45 32 11 20 37 36 35 34 33 12 19 18 17 16 15 14 13 Не могу додуматься, как это можно сделать:umnik: https://www.cyberforum.ru/ pascal/ thread74090.html
Вычислить и вывести на экран в виде таблицы значения функции F на интервале от X(нач) до Х(кон) с шагом dX. Pascal Вычислить и вывести на экран в виде таблицы значения функции F на интервале от X(нач) до Х(кон) с шагом dX. система: ax2 +b2 +c при x< 0,6 и b+c <> 0 F(x)= x-a/x-c при x>0,6 и b+c = 0 x/c + x/a в остальных случаях	Pascal вычислить скалярное произведение векторов https://www.cyberforum.ru/ pascal/ thread74083.html 1)Дан массив X=(12.8,-5.6,28,41,52,4.281,-0.025,0,-5.1) Вычислить и напечатать кол-во положительных элементов массива X и квадрат суммы всех элементов. 2)Дан массив X=(-5.2,48.5,-24.51,-0.0025,-62.58,48.2). Вычислить и напечатать число a=b-m, где b=0.248, m- максимальный элемент массива. 3)X=(-1.2,81.6,125.5,68.4,-2.1,-8)/ Вычислить и напечатать массив Я, где Z={ln(x), если x>=5.8 ...
Pascal заменить число в последовательности на произведение числа на колличество его повторовповторов Дана последовательность чисел длинной N. Заменить повторяющиеся символы произведением их значений на колличество повторений. Повторения исключить. Вывести полученный результат на экран. Пример: 1 2 2 3 4 4 4 1 6 4 Результат 2 4 3 16 6 https://www.cyberforum.ru/ pascal/ thread74082.html	Pascal Zadachi 1)Дан массив строк. Найти самую длинную группу цифр (в группе только цифры). Если эту наибольшую длину имеет несколько групп, то взять первую по порядку группу, группы разделены пробелами. 2)Составить процедуру, увеличившая вдвое столбец 1 матрицы, если сумма его четных элементов превосходит значение среднеарифметическое соответствующей строки второй матрицы.
Pascal организация циклов!!! https://www.cyberforum.ru/ pascal/ thread74075.html Задача1. Дан набор ненулевых целых чисел; признак его завершения — число 0. Вывести количество элементов в наборе. Задача2. Найти 1\|2 из данных десяти элементов. Если требуемые элементы отсутствуют, то вывести 0. Задача3 Построить график функции y=a*e^(-x)^2 где a=(1,3,5).	Pascal Подсчитать количество введенных чисел и указать наибольшее из них. A) С клавиатуры вводятся целые положительные числа. Подсчитать количество введенных чисел и указать наибольшее из них. B) В массиве из 10 элементов найти наименьший элемент и поменять его местами с последним элементом массива. C) F(x)=sin(x) - cos(x), A=0, B=пи/2, M=20 плиз чё сможете напишите,очень надо,заранее рахмет большой! https://www.cyberforum.ru/ pascal/ thread74074.html
сумма первых трех цифр Pascal найти сумму первых трех цифр дробной части вещественного числаю Например, для числа 23,16809 она равна 15.	Pascal найти Sn https://www.cyberforum.ru/ pascal/ thread74059.html Сумма первых n элементов арифметической прогрессии вычисляется по формуле Sn=(a1+a2) -n/2.Дано a,d,n.Найти Sn.

nVz

173 / 171 / 30

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

Сообщений: 1,336

13.12.2009, 21:30

Найти сумму положительных нечетных чисел, меньших 100 - Pascal - Ответ 413451

13.12.2009, 21:30. Показов 30459. Ответов 2

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

Ответ

Вот

Pascal

program gg;
uses crt;
var
   a:array[1..10] of integer;
   sum,i:integer;
begin
clrscr;
  writeln('vvedite 4isla');
  for i:=1 to 10 do
  readln(a[i]);
  for i:=1 to 10 do
  if (a[i]>0) and (a[i] mod 2 <>0) and (a[i]<100)
  then begin
       sum:=sum+a[i];
       end;
  writeln('summa: ',sum);
  readln;
  end.

Вернуться к обсуждению:
Найти сумму положительных нечетных чисел, меньших 100 Pascal

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

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

cpp_developer

Эксперт

20123 / 5690 / 1417

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

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

Блог

13.12.2009, 21:30

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

Найти сумму положительных нечетных чисел меньших 100 с использованием For
Видел, что на сайте много раз уже решали и этот пример и похожие, но дело в том, что ничего кроме...

Найти сумму целых положительных нечетных чисел меньших 50
Найти сумму целых положительных нечетных чисел меньших 50

Найти сумму целых положительных нечетных чисел, меньших 200
Привет! Преподаватель зверь. Задал зачетные работы, а с однокурсниками пытались - ничего,...

Найти сумму целых чисел положительных чисел, больших 20, меньших 100 и кратных 3
Найти сумму целых чисел положительных чисел, больших 20, меньших 100 и кратных 3.

	13.12.2009, 21:30

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

raxper

Эксперт

30234 / 6612 / 1498

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

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

Блог

13.12.2009, 21:30

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

Найти сумму целых положительных чисел, кратных 4 и меньших 50
Найти сумму целых положительных чисел, кратных 4 и меньших 50

Цикл с параметром. Найти сумму целых отрицательных нечетных чисел, больших -100
Будьте добры ,помогите решить! Найти сумму целых отрицательных нечетных чисел, больших ...

Найти сумму целых положительных чисел, кратных 4 и меньше 100.
Найти сумму целых положительных чисел, кратных 4 и меньше 100. Помогите пожалуйста составить...

Найти сумму целых положительных чисел, кратных 4 и меньше 100
Найти сумму целых положительных чисел, кратных 4 и меньше 100 Добавлено через 52 секунды...

Новые блоги и статьи
Списки в Haskell hw_wired 28.01.2025 Haskell является функциональным языком программирования, который отличается лаконичностью синтаксиса и мощными абстракциями. Важным концептом в Haskell являются списки — упорядоченные коллекции. . .	Функции высшего порядка в Haskell hw_wired 28.01.2025 Haskell – это современный функциональный язык программирования, который получил широкое распространение благодаря своей выразительности и мощным абстракциям. Одной из ключевых особенностей Haskell. . .	Как в цикле обойти все поля объекта в JavaScript bytestream 28.01.2025 Объекты в JavaScript представляют собой фундаментальные структуры данных, которые позволяют хранить и организовывать связанную информацию в виде пар ключ-значение. Каждый объект можно представить как. . .	Как выбрать строки в DataFrame по значению столбца в Pandas bytestream 28.01.2025 В области анализа данных библиотека Pandas стала незаменимым инструментом для работы с табличными данными в Python. Эта мощная библиотека предоставляет множество функций для эффективной обработки и. . .	Как сделать перенос строки в Bash bytestream 28.01.2025 При работе с командной оболочкой Bash разработчики часто сталкиваются с необходимостью форматирования текстового вывода, где ключевую роль играет правильное управление переносами строк. Умение. . .	Поиск подстроки в строке с помощью Bash bytestream 28.01.2025 Поиск подстроки в строке является одной из важных задач в программировании и обработке текстов. Применение такого поиска можно найти в самых разных областях, от анализа данных до разработки. . .
[golang] 169. Majority Element alhaos 28.01.2025 Тут надо вернуть "мажористый" элемент который встречается в слайсе больше чем в половине случаев. По условиям задачи во входных данных такой элемент обязан присутствовать. / / . . .	Когда лучше использовать LinkedList вместо ArrayList в Java bytestream 28.01.2025 При разработке Java-приложений выбор правильной структуры данных играет ключевую роль в обеспечении эффективности и производительности программы. ArrayList и LinkedList являются двумя. . .	Какой ответ HTTP лучше использовать: 403 Forbidden или 401 Unauthorized, когда недостаточно прав bytestream 28.01.2025 В современной веб-разработке правильная обработка ошибок и точное информирование клиентов о статусе их запросов играют критическую роль в создании надежных и безопасных приложений. Особое внимание. . .	Как получить список всех файлов коммита в Git bytestream 28.01.2025 Система контроля версий Git представляет собой мощный инструмент для управления изменениями в программном коде и других файлах проекта. В основе работы Git лежит концепция коммитов - снимков. . .	Как записать только часть изменений файла в Git bytestream 28.01.2025 В процессе разработки программного обеспечения часто возникает необходимость сохранить только определенные изменения из множества внесенных правок в файлах. Система контроля версий Git предоставляет. . .	[golang] 80. Remove Duplicates from Sorted Array II alhaos 28.01.2025 В предоставленном упорядоченном по возрастанию целочисленном слайсе, оставить уникальные элементы полюс один возможный дубликат. Вернуть количество таких элементов. / / . . .

Наверх