Создайте БД «Библиотека». Таблица: «Библиотека», поля: инвентарный номер, автор, название, издательство, год выпуска, количество страниц, номер библиотеки. В режиме таблицы заполнить 5 записей. Форма «Библиотека», в режиме формы заполнить 3 записи. Отчет «Библиотека» на основе таблицы, включить все поля. Создать запрос на выборку с параметром, в котором должны отображаться автор, название, издательство, а в качестве параметра задайте фамилию автора. Запрос назовите «Автор».
var a,n,i,s:integer;
begin
write('Число элементов последовательности ');
readln(n);
for i:=1 to n do begin
write(i,' элемент последовательности = ');readln(a);
if (a mod 2 <>0) then s:=s+a;
end;
writeln('Сумма нечетных = ',s);
end.
Тестовое решение:
Число элементов последовательности 5
1 элемент последовательности = 3
2 элемент последовательности = 2
3 элемент последовательности = 4
4 элемент последовательности = 1
5 элемент последовательности = 5
Сумма нечетных = 9