Найти сумму двузначных нечетных чисел. Вывести сумму. А также выводить ** экран сколько...

Question

Найти сумму двузначных нечетных чисел. Вывести сумму. А также выводить на экран сколько вводилось двузначных чисел и сколько из них было нечетных. То есть всего должно быть 3 вывода. Помогите пожалуйста!

Answer 1

Program one;
uses crt;
var a,i,b:integer;
begin
clrscr;
if (a<=10) or (a>100) and (b<=10) or (b>100)  then begin
i:=i+1;
if (a mod 2<>0)  and (b mod 2<>0)   then begin
i:=i+1;
sum:=a+b;
writeln('suma=',suma);
writeln('Количество =', i);
end;
end;
end.

Comments

Должно же быть 3 вовода:сумма, сколько двузначный, сколько нечетных
Что значит переменная I? количество чего?