Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal итерационный цикл https://www.cyberforum.ru/ pascal/ thread19985.html помогите составить проги с такими условиями:	Дан файл целых чисел, найти числа которые делятся на 3 и не делятся на 5 Pascal Зачада на файлы в pascale: Дан файл целых чисел, найти числа которые делятся на 3 и не делятся на 5.Буду очень благодарен!
Pascal Создать текстовый файл и прочитать его Создать текствоый файл и прочитать его. Помогите пожалуйста, а то завтра зачёт(((( А не понятно, как делать номера, подобные даннным((((( https://www.cyberforum.ru/ pascal/ thread19982.html	Pascal В слове, котором обнаружено наибольшее количество шипящих букв, заменить их на символ "&". https://www.cyberforum.ru/ pascal/ thread19971.html Проверьте, что не правильно? Никак не могу понять где я допустил ошибку. Дан массив из n слов произвольной длинны( длина не должна превышать 80 символов).В слове, котором обнаружено наибольшее количество шипящих букв, заменить их на символ "&". Program Lab7; Uses crt; Type T_str=array of string; T_set=set of char; Var s:T_str; d:T_set; alf:T_set; n,length_max:byte; i_max,i,j:byte;
Pascal Удалить из массива все элементы, встречающиеся менее двух раз. 1. Дан целочисленный массив размера N. Удалить из массива все элементы, встречающиеся менее двух раз. 2. Дана матрица размера M x N. Поменять местами ее строки так, чтобы их минимальные элементы образовывали возрастающую последовательность.	Pascal Сортировка матрицы https://www.cyberforum.ru/ pascal/ thread19959.html Что в программе не так ? Помогите плз. Вводица квадратная матрица 19х19.Упорядочить элементы её строк,рассположенных справа вниз от пабочной диагонали в вертикальном направлении,по возрастанию.Строки, паралельные пабочной диогонали и расположенные слева выше неё,упорядочить по убыванию. Побочную диагональ не изменять. programm kk; uses crt; const n=19; var a:array of integer; ...
Pascal на Char/String, кто может Доброго времени суток, пожалуйста прошу помочь в написании задачи на чар/стринг Заранее благодарен! Добавлено через 18 часов 59 минут 38 секунд .................задача решена.................. https://www.cyberforum.ru/ pascal/ thread19958.html	Помогите решить задачу на Одномерный массив. Pascal http://img5.imageshost.ru/imgs/0bbed634a5fabf98e84a3686641174e2/4f09ccc3689fc195388a77e8059a80a8.jpg Помогите я ее не до конца понимаю... закончите пожалуйста решение задачки... program anz279; uses crt; var mas:arrayof real;sum,n:real;a,b:integer; begin clrscr; writeln;
Pascal Проверте что не правильно в программе. https://www.cyberforum.ru/ pascal/ thread19955.html Проверте что не правильно в программе.Дана матрица A(nxn) многоразрядных целых чисел.Найти номер строки и номер столбца, на пересечении которых находиться элемент матрицы, в значении которого больше всего расположено разрядов. Program Lab6; Uses crt; const n=10; type matr=array of integer; var a:matr; i,j:integer; z,x,y:integer;	Pascal Определить, является ли точка D внутренней точкой треугольника. https://www.cyberforum.ru/ pascal/ thread19951.html Напишите решение и краткое описание хода работы плиз. Даны координаты трёх вершин треугольника ABC и даны координаты четвёртой точки D. Определить, является ли точка D внутренней точкой треугольника.
Сгенерировать N2 случайных чисел... Pascal Помогите, кто может!:'(:'( Сгенерировать N2 случайных чисел. Выделить в каждом из чисел дробну часть. Найти суммы из первых к цифр каждой дробной части чисел.Сформировать из их массив (таблицу) из N строк, в каждом из которых по N столбиков. Найти минимальное и максимальное числа в таблицы, а также сумму чисел n-го столбика. На экран вывести в виде строки случайные числа,...	Pascal Решить ребус: VOLVO - FIAT=MOTOR https://www.cyberforum.ru/ pascal/ thread19933.html Собстенно чёткой темы нету вот создал. Ну и сразу хочу попросить помощи с программой 1.Работа с данными типа множество, а именно Решить ребус: VOLVO - FIAT=MOTOR Могу много примеров выложить!Пишите темы. Можете в ICQ обращаться 442550280.

Puporev

Почетный модератор

64291 / 47589 / 32740

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

Сообщений: 115,181

29.12.2008, 08:51

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

29.12.2008, 08:51. Показов 11154. Ответов 2

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

Ответ

Вот решение, не забывай, что 1 не относится к простым.

Pascal

uses crt;
const n=5;
var a:array[1..n] of real;
    i,j,k:integer;
    sum:real;
begin
clrscr;
randomize;
writeln('Posledovatelnost:');
for i:=1 to n do
   begin
     a[i]:=10*random;
     write(a[i]:4:1);
   end;
writeln;
sum:=0;
for i:=2 to n do  //начинаем с 2
  begin
    k:=0;
    for j:=2 to round(sqrt(i)) do //смотрим каждое число до его корня, дальше нет смысла, делителей нет
    if i mod j=0 then inc(k);//считаем делители
    if k=0 then sum:=sum+a[i];//если делителей нет, считаем сумму
  end;
write('Summa=',sum:0:1);
readln
end.

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

29.12.2008, 08:51

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

Дана последовательность натуральных чисел,вычислить сумму тех из них,порядковые номера которых являются простыми числами
Нужно написать такую программу. Дана последовательность натуральных чисел,вычислить сумму тех из...

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

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

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

	29.12.2008, 08:51

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

29.12.2008, 08:51

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

Вычислить сумму тех из чисел, порядковые номера которых - простые числа
Имеется последовательность чисел, содержащая n элементов. Вычислить сумму тех из них, порядковые...

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

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

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

Наверх