Задача на циклы Опции

[Cavallari]

Последовательно вводятся с клавиатуры натуральные числа (конец ввода - число 0). Найти сумму нечетных чисел, меньших 99 и их количество.

[Артемий]

const
 n=10;
var
i,k,sum,col: Integer;
begin
 sum:=0; col:=0;
 for i:=1 to n do begin
  readln(k);
  if (k<99) and odd(k) then begin
   sum:=sum+k;
   inc(col);
  end else continue;
 end;
writeln(sum,' ',col);

?

Сообщение отредактировано: Артемий - 23.04.2007 20:35

[klem4]

Найти сумму нечетных чисел

долго отправлялось ... уже исправил.

[Cavallari]

а она идет? программа в смысле? я чайник в этом полнейший

[klem4]

Артемий

(конец ввода - число 0)

)

[Артемий]

Да вроде у меня шла...только я не учел ноль...там только 10 раз..

Найти сумму нечетных чисел

а разве odd возвращает тру при четном значении?

Сообщение отредактировано: Артемий - 23.04.2007 20:51

[klem4]

Когда я писал то сообщение odd там не было ...