|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.10.2007, 10:57 | #1 |
Регистрация: 22.08.2007
Сообщений: 8
|
Помогите с задачкой, пожалуйста!
вот она это задачка:Дано целое число N. Вывести сообщения типа « N- четное отрицательное », « N- четное положительное », « N=О », « N- нечетное отрицательное », « N- нечетное положительное» в зависимости от его (N) вида. Я извиняюсь за возможные неястности, переводил с другог языка.
|
09.10.2007, 11:04 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
На каком языке, то?
I'm learning to live...
|
09.10.2007, 11:14 | #3 |
Регистрация: 22.08.2007
Сообщений: 8
|
на delphi.
|
09.10.2007, 11:17 | #4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
По памяти :
If (n<0)and(n mod 2 =0) then ShowMessage('четное отрицательное'); If (n>0)and(n mod 2 =0) then ShowMessage('четное Положительное'); If (n<0)and(n mod 2 <>0) then ShowMessage('нечетное отрицательное'); If (n>0)and(n mod 2 <>0) then ShowMessage('нечетное положительное');
I'm learning to live...
|
09.10.2007, 11:34 | #5 |
Участник клуба
Регистрация: 28.03.2007
Сообщений: 1,814
|
procedure TForm1.Button1Click(Sender: TObject);
var n:integer; begin n:=strtointdef(edit1.Text,1); if n=0 then begin showmessage('Число n =0'); exit; end; if (n mod 2)=0 then begin if n<0 then showmessage('Число n чётное отрицательное') else showmessage('Число n чётное положительное') end else if n<0 then showmessage('Число n нечётное отрицательное') else showmessage('Число n чётное положительное') end; |
09.10.2007, 11:52 | #6 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Не забываем использовать функцию Odd
Function Odd(X: LongInt): Boolean;
Life is too short, play more...
Как правильно задавать вопросы |
09.10.2007, 12:10 | #7 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Их развеж все упомнишь )
I'm learning to live...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите плз с задачкой | Dendy | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 05.02.2008 22:16 |
помогите с задачкой.. plz | Diller | Помощь студентам | 3 | 28.09.2007 20:03 |
Помогите пожалуйста с задачкой | Antowka | Помощь студентам | 1 | 13.06.2007 13:41 |