[ · Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1 1
Модератор форума: Seqular, Pavel

Форум » Обсуждение задач » Новые задачи » еще маленькая просьба:) (true или false)

еще маленькая просьба:)

Таша Дата: Пятница, 21.03.2008, 16:06 | Сообщение # 1 Новичок Группа: Пользователи Сообщений: 8 Репутация: 0 Замечания: 0% Статус: Offline Сумма цифр данного трехзначого числа является четным числом.Если да то печатать true, если нет то false.решите пожалуйста, очень выручите!..)

Alexander Дата: Суббота, 22.03.2008, 02:35 | Сообщение # 2 Всевышний Группа: Модераторы Сообщений: 475 Репутация: 16 Замечания: 0% Статус: Offline X- число S- сумма цифр Code S:=0; repeat       Inc(S,X mod 10);       X:=X div 10; until X = 0; WriteLn(S mod 2=0) Скажем дружно- нафиг нужно! Сообщение отредактировал Alexander - Суббота, 22.03.2008, 02:37

Таша Дата: Суббота, 22.03.2008, 04:30 | Сообщение # 3 Новичок Группа: Пользователи Сообщений: 8 Репутация: 0 Замечания: 0% Статус: Offline выдает ошибку 104 - ordinal variable expected в inc(s,x mod 10);

Alexander Дата: Суббота, 22.03.2008, 04:41 | Сообщение # 4 Всевышний Группа: Модераторы Сообщений: 475 Репутация: 16 Замечания: 0% Статус: Offline Значит у вас S не порядкового типа. Скажем дружно- нафиг нужно!

Seqular Дата: Воскресенье, 23.03.2008, 19:53 | Сообщение # 5 Хранитель Группа: Администраторы Сообщений: 859 Репутация: 35 Статус: Offline Таша, Объявите S как Integer. Либо замените выражение Code inc(s,x mod 10); на Code s := s + (x mod 10); Поддерживаю также проект сообщество молодых сисадминов