Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
1 / 1 / 5
Регистрация: 13.10.2015
Сообщений: 8

Определить порядковый номер (индекс) первого элемента, значение которого является простым числом

23.11.2015, 16:50. Показов 933. Ответов 0
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Задана натуральная числовая последовательность, признаком завершения которой является ноль, записанный после перечисления всех элементов последовательности. Определить порядковый номер (индекс) первого элемента, значение которого является простым числом.

Входные данные:
Во входном потоке в первой строке через пробел перечислены значения элементов натуральной числовой последовательности. После перечисления значений всех элементов последовательности записан ноль, являющийся признаком завершения последовательности. Значения элементов последовательности не превышают 10^6.

Пример входного файла (input.txt):
1 2 4 9 3 4 5 6 7 8 9 11 12 13 0

Выходные данные:
В выходной поток вывести единственное целое число.

Пример выходного файла (output.txt):
2

В чём ошибка?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

var
  a, d, i, k: longint; 
  f: boolean;
 
begin
  a := 1;
  f := true;
  k := 0;
  while f <> false do 
  begin
    read(a);
    if a <> 0
        then    
    begin
      d := 2; 
      f := a = 1; 
      while (f = false) and (d <= sqrt(a)) do 
      begin
        f := a mod d = 0; 
        d := d + 1; 
      end; 
      if f = true then 
        i:=i+1;  
    end;
  end; 
  write(i);
end.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
 23.11.2015, 16:50
Ответы с готовыми решениями:

В матрице найти значение простого элемента, сумма индексов которого не является простым числом..
Дана матрица размера MxN. Найти значение простого элемента, сумма индексов которого не является простым числом..

Определить порядковый номер элемента массива, значение которого наиболее близко к некоторому целому числу
условия задачи: Определить порядковый номер элемента массива, значение которого наиболее близко к некоторому целому числу x (x вводится...

Определить номер элемента списка, значение которого равно сумме первого и последнего элементов
Как реализовать данную задачу на Prolog? Определять номер элемента списка из целых чисел, значение которого равно сумме первого и...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
 23.11.2015, 16:50
Помогаю со студенческими работами здесь

6.62. Дана непустая и упорядоченная по возрастанию последовательность целых чисел, оканчивающаяся числом 10 ООО. Определить порядковый номер первого ч
6.62. Дана непустая и упорядоченная по возрастанию последовательность целых чисел, оканчивающаяся числом 10 000. Определить порядковый...

Вычислите порядковый номер элемента последовательности , значение которого станет меньше 0,002,
Вычислите порядковый номер элемента последовательности 1+1/(1+2)+1/(2+3)+...+1/(n+(n+1)),значение которого станет меньше 0,002,

Вывести значение первого элемента массива, который не делится на 3 и является двузначным числом
Вывести значение первого элемента массива, который не делится на 3 и является двузначным числом.

Для каждой строки массива определить порядковый номер первого элемента, который не делится на 3 и 5 нацело
• для каждой строки массива определить порядковый номер (номер столбца) первого элемента который не делится на 3 и 5 нацело; • для...

Для каждой строки массива определить порядковый номер столбца первого элемента , который не делится на 3 и 5 нацело
Для каждой строки массива определить порядковый номер столбца первого элемента , который не делится на 3 и 5 нацело


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru