Завтра зачет по Delphi help pleazzzzzzz.Водиться ряд целых чисел.

← →
space lord (2002-06-05 00:19) [0]

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

← →
Kettle of delphi (2002-06-05 00:25) [1]

Четные - это такие, которые делятся на 2 без остатка (т.е. остаток равен нулю). Остаток от деления можно посмотреть с помощью функции mod, которая возвращает остаток целочисленного деления. Короче, обозначим каждое введенное число Х. Искомую сумму обозначим переменной S. Если mod(X/2) = 0 то S := S+X.

← →
Новеньки в Делфи (2002-06-05 01:34) [2]

тебе код нужен или теория?
если код, то более конкретно задание опиши. (каким образом числа вводиться будут нужны проверки, какие нить огрничения? и т.д.)

Не описано, как вводятся данные. Если сформирован массив, то

Sum:=0;
for i:=1 to Num do
if not Odd(a[i]) then
Sum:=Sum+a[i];

Завтра зачет по Delphi help pleazzzzzzz.Водиться ряд целых чисел. Найти похожие ветки