Написать базу данных на access и найти постановки создать базу данных репертуара оперного театра,содержащую: название произведения,автор,дата постановки,язык исполнения найти постановки,которые: 1)исполняются на итальянском языке 2)исполняется в каникулы с 24.12 по 7.01 3)исполняется только один раз
a, d: real;
i, n: integer;
begin
write('Введите значение первого члена прогрессии, a=');
readln(a);
write('Введите значение разности прогрессии, d=');
readln(d);
write('Введите количество членов прогрессии, n=');
readln(n);
writeln('Значения членов прогрессии:');
for i := 1 to n do
write(a + d * (i - 1), ' ')
end.
Тестовое решение:
Введите значение первого члена прогрессии, a=4
Введите значение разности прогрессии, d=2
Введите количество членов прогрессии, n=6
Значения членов прогрессии:
4 6 8 10 12 14