| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Завтра зачет по Delphi help pleazzzzzzz.Водиться ряд целых чисел. [D6, Win95/98]
space lord © (2002-06-05 00:19:00)Водиться ряд целых чисел. Найти сумму тех из них которые явл четными
MBo (2002-06-05 06:43:00) [1]Не описано, как вводятся данные. Если сформирован массив, то
Sum:=0;
for i:=1 to Num do
if not Odd(a[i]) then
Sum:=Sum+a[i];
Новеньки в Делфи (2002-06-05 01:34:00) [2]тебе код нужен или теория?
если код, то более конкретно задание опиши. (каким образом числа вводиться будут нужны проверки, какие нить огрничения? и т.д.)
Kettle of delphi (2002-06-05 00:25:00) [3]Четные - это такие, которые делятся на 2 без остатка (т.е. остаток равен нулю). Остаток от деления можно посмотреть с помощью функции mod, которая возвращает остаток целочисленного деления. Короче, обозначим каждое введенное число Х. Искомую сумму обозначим переменной S. Если mod(X/2) = 0 то S := S+X.
| |
