Четверг, 09.01.2025
Pascal 4 All
Главная
|
Регистрация
|
Вход
Приветствую Вас
Гость
|
RSS
[
·
Новые сообщения
·
Участники
·
Правила форума
·
Поиск
·
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);
Поддерживаю также проект
сообщество молодых сисадминов
Форум
»
Обсуждение задач
»
Новые задачи
»
еще маленькая просьба:)
(true или false)
Страница
1
из
1
1
Главная страница форума
Пожелания пользователей
Пожелания пользователей
Обсуждение среды программирования
Обсуждение среды программирования Pascal
Теория
Численные методы
Обсуждение задач
Обсуждение решенных задач
Новые задачи
Старые задачи
Другие языки программирования
С++
C#
Треп на различные темы
Болтовня обо всем
Обсуждение действий начальства
Обсуждение действий начальства
Обсуждение действий пользователей
Конкурс!
Конкурс решения задач
Конкурсы общего назначения
Поиск:
Copyright MyCorp © 2025
Используются технологии
uCoz
javascript:;" rel="nofollow" onclick="loginPopupForm(); return false;