Полагаю здесь ответ нужно написать
При итерациях:
1) s = 3
2) s = 6
3) s = 18;
Вывод 18
Устройство управляющее работой графического дисплея
Var n,a,i,nn:integer;
begin
write('Количество двузначных чисел: ');
readln(n);
for i:=1 to n do begin
repeat
write('Введите ',i,' число');readln(a);
until (a>9) and (a<100);
if a mod 2 =0 then nn:=nn+1;
end;
writeln('Количество четных двухзначных = ',nn);
end.
Тестовое решение:
Введите 1 число1
Введите 1 число23
Введите 2 число44
Введите 3 число3
Введите 3 число32
Введите 4 число45
Введите 5 число56
Количество четных двухзначных = 3