![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 19.10.2011
Сообщений: 4
|
![]()
Доброе время суток)
Нужно узнать делиться ли трицифровое число N на суму своих цифр. Задача 10 клас. Среда Delphi Lite 10. Сам бы сделал, но у меня что-то в "if" не получается и выдает ошибку. Если можно сделайте так, что бы я это понял) Спасибо) |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 15.03.2011
Сообщений: 465
|
![]()
Хитро! Вы свой код сюда закиньте, а мы посмотрим!
|
![]() |
![]() |
#3 |
Новичок
Джуниор
Регистрация: 19.10.2011
Сообщений: 4
|
![]()
program Proje123ct1;
{$APPTYPE CONSOLE} uses SysUtils; var x,a,b,c,z:integer; begin writeln('vvedu x'); readln(x); a:=x div 100; b:=x div 10; c:=x mod 10; z:=a*100+b*10+c; if (x div z) then writeln('dilutsa',z:10:2) else writeln('ne dilutsa'); writeln('a'); end. |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 15.03.2011
Сообщений: 465
|
![]()
Ну конечно, x div z - это не булево значение, а число, поэтому у вас и ошибку показывает!
|
![]() |
![]() |
#5 |
Новичок
Джуниор
Регистрация: 19.10.2011
Сообщений: 4
|
![]()
Ну так, подскажите как правильно написать пожалуйста) Булево это что-то типо тру фолс, если я не ошибаюсь) Но ми это булево еще не учили и я не знаю как правильно его оформить.
|
![]() |
![]() |
#6 |
Форумчанин
Регистрация: 15.03.2011
Сообщений: 465
|
![]()
Ладно, сейчас попробую!
|
![]() |
![]() |
#7 |
Форумчанин
Регистрация: 15.03.2011
Сообщений: 465
|
![]()
Вот, пробуй -
Код:
![]() |
![]() |
![]() |
#8 |
Новичок
Джуниор
Регистрация: 19.10.2011
Сообщений: 4
|
![]()
Я уже сам нашел свои ошибки и там алгоритм немного не правильный был) Условия задачи перепутал) Но все равно спасибо) А то все с короной сидят и молчат)
|
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не изменяется интерфейс моей программы при переходе с Delphi 7 на Delphi 2010 | Elvisnya | Общие вопросы Delphi | 3 | 28.04.2011 15:59 |
Rad Studio 2011 XE: новое в Delphi, C++ Builder, RadPHP и Delphi Prism | savva-paladin | Софт | 18 | 02.10.2010 20:24 |
Задча про массивы | Divoha | Общие вопросы C/C++ | 3 | 27.06.2009 13:35 |
Delphi. Как нарисовать в Delphi два движущиеся шара с определенной скоростью? | redred | Общие вопросы Delphi | 10 | 11.12.2007 10:43 |
Как открыть БД, написанную в Delphi если нf другой машине Delphi нет? | dagarik | БД в Delphi | 7 | 22.10.2007 17:54 |