Найти сумму двузначных нечетных чисел. Вывести сумму. А также выводить на экран сколько вводилось двузначных чисел и сколько из них было нечетных. То есть всего должно быть 3 вывода. Помогите пожалуйста!
Найти сумму двузначных нечетных чисел. Вывести сумму. А также выводить на экран сколько вводилось двузначных чисел и сколько из них было нечетных. То есть всего должно быть 3 вывода. Помогите пожалуйста!
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы