Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/18: Рейтинг темы: голосов - 18, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 20.01.2015
Сообщений: 35

Найти сумму a2+a4+a6. Ошибка "illegal qualifier"

16.02.2015, 20:58. Показов 3443. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Даны целые числа a1, a2, ..., a20. Найти сумму a2+a4+a6 ... . Оператор цикла с шагом, отличным от 1 и –1, не использовать.

Написал следующий код:
Pascal
1
2
3
4
5
6
program _718;
var a, Sum, i: integer;
begin
Sum:=0;
For i:=1 to 10 do Sum:=Sum+a[i*2];
end.
Выдаёт ошибку "illegal qualifier". Что я делаю не так?
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
16.02.2015, 20:58
Ответы с готовыми решениями:

Ошибка: Illegal qualifier
ругается на переменную k в open в чем причина?( если что, это сапер, open - процедура открытия пустых ячеек unit Unit3; ...

Error: Illegal qualifier
написал такой код: type metk=(a,b); st=record mark:string; fio:string; nomr:string; ...

Error: Illegal qualifier
Добрый день, помогите решить проблему, студент, до этого не встречался с Паскаль. Пользуюсь FreePascal 3.0.0. uses graph, LABA4, crt; ...

3
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33403 / 21513 / 8236
Регистрация: 22.10.2011
Сообщений: 36,914
Записей в блоге: 12
16.02.2015, 21:04
Переменная a должна быть описана как массив, только к элементам массива можно обращаться по индексу.
0
0 / 0 / 0
Регистрация: 20.01.2015
Сообщений: 35
16.02.2015, 21:28  [ТС]
а может кто-то исправить, пожалуйста?
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33403 / 21513 / 8236
Регистрация: 22.10.2011
Сообщений: 36,914
Записей в блоге: 12
16.02.2015, 23:51
Лучший ответ Сообщение было отмечено akalinin как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program _718;
var
  a : array[1 .. 20] of integer;
  Sum, i: integer;
begin
  Sum:=0;
  For i:=1 to 20 do
  begin
    write('a[',i:2,'] = '); readln(a[i]);
  end;
  For i:=1 to 10 do Sum:=Sum+a[i*2];
  writeln('sum = ', sum);
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
16.02.2015, 23:51
Помогаю со студенческими работами здесь

Error: Illegal qualifier при кастомном типе
Приветствую местный контингент, всем доброго времени суток. К делу... unit QuestionResultUnit; interface uses Windows,...

Error: Illegal qualifier при попытке выполнить метод Split()
При попытке выполнения следующего кода в Free Pascal возникает ошибка. Код: var i: integer; var input: string; var word_:...

Не могу разобраться с решением задачи. Выдает ошибку main.pas(14,31) Error: Illegal qualifier
program Lab5_variant6_2; uses crt; var n,g:integer; P,Q,x:real; begin writeln('Введите N и х'); readln(n,x); P:=1; Q:=1; ...

Ошибка identifier `pec` cannot have a type qualifier
Всем доброй ночи. Не пойму в чем ошибка, выдает такую ошибку " identifier `pec` cannot have a type qualifier ". И хотелось бы...

Ошибка type qualifier 'std' must be a struct or class name
а у меня на эту строку typedef std::string T_str; выдается ошибка type qualifier 'std' must be a struct or class name что делать? ...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Программный контроль заполнения реквизита табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита табличной части. . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
К слову об оптимизации
kumehtar 01.04.2026
Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru