Ну короче, твой алфавит = 3 и возможных вариантов где может находится каждая из букв = 3 => 3 в 3 степени = 27 (степень отвечает за алфавит, а число, которое возводим отвечает за варианты расположения)
Над типом integer нельзя выполнять деление. Раз тут деление, то нужен вещественный тип, а то есть real. a и b могут быть описаны и как real и как integer.
Var
i, n, k: integer;
begin
n := 1; k := 0;
while n <> 0 do
begin
Write('Введите целое число, 0 - отказ от ввода: ');
Readln(n);
if (n <> 0) and (n mod 2 = 0) then k := k + 1
end;
Writeln('Введено четных чисел- ', k)
end.
Введите целое число, 0 - отказ от ввода: 34
Введите целое число, 0 - отказ от ввода: 137
Введите целое число, 0 - отказ от ввода: 72
Введите целое число, 0 - отказ от ввода: 9243
Введите целое число, 0 - отказ от ввода: 0
Введено четных чисел- 2
program name;
const
n:=15
var
i,a:array[1..n] of integer;
begin
for i:=1 to n do begin
random(a[i]);
writelm(a[i]);
end;
end.
Пол задания
Решение приведено на фото. Если нужны будут дополнительные объяснения, сообщите