Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Матрицы. Вычислить сумму элементов главной диагонали матрицы Даны натуральное число n и квадратная матрица порядка n целочисленных элементов, где n≤15. Вычислить сумму элементов главной диагонали матрицы. Помогите пожалуйста кто чем может , за ранее благодарю:) https://www.cyberforum.ru/ pascal/ thread846670.html	Pascal Ошибка: неверное количество фактических параметров Очень прошу помочь исправить ошибку в моей программе. Program p6; Type Mas=array of integer; Var a1,a2:Mas; n: integer; Procedure Vvod (Var a:Mas; m:integer); Var
Pascal Из Pascal в QBasic https://www.cyberforum.ru/ pascal/ thread846563.html помогите пожалуйста горит курсовая, надо перевести из Pascal в QBasic В матрице А(N,N) найти элементы, встречающиеся более одного раза. Из этих элементов составить и напечатать матрицу Х из двух столбцов. В пер-вом столбце разместить сами значения таких элементов, во втором – коли-чество раз, которое они встретились. Составить и напечатать новую матрицу B(N,N), элементами которой являются...	Pascal Составить алгоритм определяющий можно ли квадрат со стороной r поместить внутрь прямоугольника со сторонами p и q. https://www.cyberforum.ru/ pascal/ thread846559.html Составить блок-схему и программу на 1 и 2 задачи : 1.Составить алгоритм определяющий можно ли квадрат со стороной r поместить внутрь прямоугольника со сторонами p и q. 2. y = система из 3 уравнении: e^(x+2) , (x>1) ; 1-2x , (-1<=x<=1) ; -(2(x)^3-3)/5 , (x<-1)
Pascal Вычислить значение функции Аккермана, используя стек Задана функция Аккермана: A(n,x,y)=\begin{cases} & \ n+1 \; { if } \; n=0 \\ & \ x \; { if } \; n=1,\;y=0 \\ & \ 0 \; { if } \; n=2,\;y=0 \\ & \ 1\;{ if } \; n=3 \;y=0 \\ & \ 2\;{ if } \; n\geq 4, \;y=0 \\ & \ A(n - 1, A(n,x,y - 1), x) \; { if } \; n\neq 1, \;y\neq 0 \end{cases} где n,x,y - целые положительные числа. Вычислить значение функции Аккермана с помощью стека, который...	Pascal Найти средние арифметическое нечетных столбцов матрицы https://www.cyberforum.ru/ pascal/ thread846369.html Добрый день. Дано матрицу 4х4. Элементы заданы формулой: A := (k / 2 - i + 0.3) * (j - k + 5 * n) * sin(j) , где k := (m + n) mod 3 + 3; Найти средние арифметическое непарных столбцов. Саму програму сделать не сложно , проблема в том , что нужно сделать это 3 процедурами : 1)Ввод матрицы 2)Вывод матрицы 3)Найти ср.арф. непарных стлбцов. При попытке это сделать , все элементы матрицы = 0. ...
Pascal как сделать переход на новую строку Привет, такой вопрос: как сделать переход межну строками к примеру написал программу , и вывел 2 текста , как можно добавить переход между текстами ? Я знаю способ writeln(); writeln(); , может кто еще знает другой способ ? Добавлено через 3 часа 26 минут помогите, если кто знает и не трудно вам https://www.cyberforum.ru/ pascal/ thread846218.html	Определить количество и номера точек последовательности, попадающих в круг Pascal Составить блок-схему и написать программу. Задана последовательность точек плоскости P1(x, y); P2(x, y); …..; Pn(x, y). Определить количество и номера точек последовательности, попадающих в круг радиуса R>0 с центром в точке Q(x,y);
Pascal задание 8 класс Помогите, кто помнит паскаль) Оформите тему в соответствии с правилами форума: 1) переведите задания на русский язык 2) текстовые задания наберите от руки 3) один вопрос - одна тема. https://www.cyberforum.ru/ pascal/ thread845810.html	Pascal Список и рекурсия Написать рекурсивную и нерекурсивную процедуры проверки наличия в списке заданного числа https://www.cyberforum.ru/ pascal/ thread845776.html
Pascal Какие из приведенных описаний одномерных массивов являются неправильными? Вот вопрос с вариантами ответов:	Pascal Вводится последовательность целых чисел 10.Найти наименьшее и наибольшее числа Вводится последовательность целых чисел 10.Найти наименьшее и наибольшее числа.Прошу помощи. https://www.cyberforum.ru/ pascal/ thread845488.html

CodeR

Фрилансер

3418 / 2815 / 3000

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

Сообщений: 8,574

Записей в блоге: 1

24.04.2013, 10:08

Дана последовательность натуральных чисел,вычислить сумму тех из них,порядковые номера которых являются простыми числами - Pascal - Ответ 4462078

24.04.2013, 10:08. Показов 2806. Ответов 1

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

Сообщение было отмечено kenjiman как решение

Решение

Pascal

Var i,s,a,t,j:integer;
Begin
    writeln('Окончание ввода "0"');
    Repeat
     write('Число: ');
     readln(a);
     inc(i);
     t:=1;
     For j:=2 to i div 2 do
      if i mod j = 0 then t:=0;
     if (t=1)and(i>1) then s:=s+a;
    Until a=0;
    writeln('Сумма = ',s);
    readln;
End.

Вернуться к обсуждению:
Дана последовательность натуральных чисел,вычислить сумму тех из них,порядковые номера которых являются простыми числами Pascal

Programming

Эксперт

94731 / 64177 / 26122

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

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

24.04.2013, 10:08

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

Вычислить сумму чисел, порядковые номера которых являются простыми числами.
Что то не могу никак решить задачу, с проверкой на простое число выскакивают косяки. Задача....

Дана последовательность натуральных чисел, за которой 0, вычислить сумму тех, номера которых - числа фибоначчи
Помогите исправить проблему: после 3 числа условие n=t не работает и элементы последовательности не...

Вычислить сумму чисел, порядковые номера которых являются числами Фибоначчи.
Задана последовательность N вещественных чисел. Вычислить сумму чисел, порядковые номера которых...

Последовательность чисел. Вычислить сумму тех, порядковые номера которых- числа Фибоначчи.
Дана непустая последовательность натуральных чисел за которой следует 0 Вычислить сумму тех из них,...

	24.04.2013, 10:08

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

24.04.2013, 10:08

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

Вычислить сумму чисел, порядковые номера которых являются числами Фибоначчи
Задана последовательность из N вещественных чисел. Вычислить сумму чисел, порядковые номера которых...

Вычислить сумму чисел, порядковые номера которых являются числами Фибоначчи.
14. Задана последовательность N вещественных чисел. Вычислить сумму чисел, порядковые номера...

Массив: Вычислить сумму чисел, порядковые номера которых являются нечетными числами.
Задана последовательность N вещественных чисел. Вычислить сумму чисел, порядковые номера которых...

Требуется вычислить и напечатать сумму тех из них, порядковые номера которых являются простыми числами. (PascalABC)
В числовую переменную вводятся произвольные числа, не равные нулю. Количество вводимых чисел...

Наверх