С клавиатуры вводится n чисел.Найти сумму и количество трехзначных и нечетных чисел....

Question

С клавиатуры вводится n чисел.Найти сумму и количество трехзначных и нечетных чисел. Pascal

Comments

какой язык?

---

паскаль

Answer 1

Var a,b,n,kol:integer;begin
writeln('введите количество чисел');
readln(n);
kol:=0;
 for a:=1 to n do begin
  writeln('введите число');
  readln(b);
  if (b mod 2 <> 0) and ((b>99) and (b<1000)) then kol:=b+kol;<br>  end;
writeln('количество нечётных трёхзначных чисел => ',kol);
end.

Comments

))

---

 if (b mod 2 <> 0) and ((b>99) and (b<1000)) then kol:=b+kol;<br>
Что это означает?)

---

если число делится на 2 с остатком (то есть чётное) и если лежит в промежутке от 99 до 1000 (трёхзначное) 

---

то складываем числа

---

поняла,спасибо!

---

А если число нечетное?

---

то ничего не складывается

---

ок,еще раз спасибо)

---

рад помочь, обрашайтесь

---

: D