|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.11.2017, 20:23 | #1 |
Новичок
Джуниор
Регистрация: 29.11.2017
Сообщений: 1
|
Ошибка Pascal ABC.NET. Дана последовательность натуральных чисел, Удалить из последовательности простые числа, а среди оставшихся продублировать числа...
{Вариант 13.
Дана последовательность натуральных чисел [Aj]j=1...n (n<=10000). Удалить из последовательности простые числа, а среди оставшихся продублировать числа, начинающиеся и заканчивающиеся одной и той же цифрой} _ Код:
Помогите пожалуйста _____ Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ) Модератор Последний раз редактировалось Serge_Bliznykov; 30.11.2017 в 10:34. |
30.11.2017, 10:44 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,238
|
очень много логических и синтаксических ошибок.
формально паскаль ругается на то, что cifra и prost это функции, которые имеют параметр (число, которое нужно проверять). т.е. нужно писать cifra( число) или prost( число) в вашем случае cifra( B[j] ) или prost ( B[j] ) но Вы же условие перепутали. в условии простые числа надо удалять, а с одинаковыми цифрами - дублировать. а Вы в программе наоборот написали. и ещё два замечания. 1) if значение = True then писать не надо. это "масло масляное" надо if значение then 2) функция Prost у Вас неверно написана. инвертировано. для простых чисел она вернёт False, а для составных - True. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Дана непустая последовательность целых чисел. Найти: Сумму чисел, больших числа x и количество всех чётных чисел | maksim97maksim | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 09.04.2014 13:59 |
Дана последовательность из n целых чисел. Найти номер минимального элемента в этой последовательности (на Pascal) | Nata111 | Помощь студентам | 3 | 16.12.2013 20:11 |
[Pascal]Удалить из последовательности числа... продублировать числа... | suigintou | Помощь студентам | 0 | 07.11.2012 20:39 |
Задачи в ТурбоПаскаль: найти числа Армстронга и просуммировать числа в последовательности номера которых простые числа | Lena1808 | Помощь студентам | 1 | 17.05.2012 08:00 |
Дана последовательность чисел a1, a2, …, an. Требуется переставить числа в порядке возрастания. | Figushkin | Помощь студентам | 1 | 24.05.2010 20:44 |