Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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;
  end;
writeln(количество нечётных трёхзначных чисел => ,kol);
end.