Найти сумму двузначных нечетных чисел. Вывести сумму. А также выводить на экран сколько вводилось двузначных чисел и сколько из них было нечетных. То есть всего должно быть 3 вывода. Помогите пожалуйста!!!
Это только ответ на 1 вопрос. var a, i, n, b, sum:integer; begin sum:=0; readln(n); for i:=1 to n do begin readln(a); if (a>9) and (a mod 2=0) then sum:=sum+a; writeln(sum); end; end.
Попробуй создать 2 переменные. 1 отвечает за чётность. if a mod 2=0. 2 отвечает за двузначность. a>9.
Это для вывода, сколько было двузначных из них и не четных? Значит к примеру для вывода двузначности, опять пишем после предпоследнего end.: begin
if a mod 2=0 writeln('нечетные числа',b) так? а зачем вообще B вводилось в самом начале?