Выводятся такие значиния
k= 1 p=120
j=10 s= 20 j=11 s= 42 j=12 s= 66 j=13 s= 92 j=14 s= 120 j=15 s= 150
НЕ (X <= 8) И НЕ (X >= 15) И (X чётное)
(X > 8) И (Х < 15) И (X чётное)
Подходят все чётные числа, в диапазоне (8; 15), т. е.
10; 12 и 14
Ответ: 10, 12, 14
var
arr: array [1..100]of integer;
i, size: integer;
begin
writeln('Введите размерность последовательности: ');
readln(size);
for i := 1 to size do
readln(arr[i]);
i := 1;
repeat
writeln(arr[i], ' ');
inc(i);
until arr[i] = 0;
writeln(0);
end.
1)1ый условный оператор без условия
2)конец программы обозначается End., а не End;