Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

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

84K
18 декабря 2012 года
akk2013
7 / / 17.12.2012
2. Задана последовательность N вещественных чисел. Вычислить сумму чисел, порядковые номера которых являются простыми числами.
Для отладки программы исходный массив сформировать с помощью генератора случайных чисел.
86K
18 декабря 2012 года
SnowLeo
8 / / 26.11.2012
Цитата:
Как это сделать?


За деньги наверное :)

86K
18 декабря 2012 года
SnowLeo
8 / / 26.11.2012
Код:
var
  mass: array [1..100] of Real;
  i, j: integer;
  sum: Real;

begin
  Randomize;
  sum := 0;
  for i := 1 to 100 do
  begin
    mass[i] := sqrt(Random(1000));
    if (i > 3) then
    begin
      for j := 2 to i do
        if (i mod j) = 0 then break;
      if (j = i) then
      begin
        WriteLn('mass[', i, '] = ', mass[i]);
        sum := sum + mass[i];
      end
    end
    else
    begin
      WriteLn('mass[', i, '] = ', mass[i]);
      sum := sum + mass[i];
    end;
  end;
  WriteLn('sum = ', sum);
end.
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог