|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.12.2008, 10:22 | #1 |
Заблокирован
Регистрация: 21.12.2008
Сообщений: 7
|
Программа, определяющую, какая цифра введена – четная или нечетная.
1. Составить программу, определяющую, какая цифра введена – четная или нечетная. Учесть все варианты неверного ввода.
2. Дана бесконечная последовательность целых чисел. С помощью бесконечного цикла считать сумму и количество членов последовательности до тех пор, пока не встретится член, равный нулю |
21.12.2008, 10:34 | #2 |
Форумчанин
Регистрация: 31.10.2008
Сообщений: 500
|
1.Четная или нет. При помощи деления по модулю на 2.
2.Проверка на ввод. Можно на Проверку символа Аски таблицы. 3.Не очень что означает бесконечность чисел( Можно просто бесконечный ввод по Одному числу за раз, И проверять каждый ввод на = 0.
Skype : UASm1Le.
|
21.12.2008, 10:46 | #3 |
Пользователь
Регистрация: 06.11.2008
Сообщений: 51
|
prorgam 1;
uses crt; var x:integer; begin clrscr; writeln('vvedite hiclo x '); readln(x); if x mod 2 = 0 then begin writeln('hiclo hetnoe'); end else begin writeln('niclo ne hetnoe'); end readln; end. |
21.12.2008, 10:47 | #4 | |
Форумчанин
Регистрация: 31.10.2008
Сообщений: 500
|
Цитата:
Skype : UASm1Le.
|
|
21.12.2008, 10:53 | #5 |
Форумчанин
Регистрация: 31.10.2008
Сообщений: 500
|
radln(X)
if integer(x)>59 and Integer(x)<48 then begin Writeln('Error'); end if x='' then begin Writeln('Error'); end
Skype : UASm1Le.
|
21.12.2008, 11:08 | #6 |
Заблокирован
Регистрация: 21.12.2008
Сообщений: 7
|
спасибо огромное, с первой я разобрался!!!!!
|
21.12.2008, 12:03 | #7 |
Заблокирован
Регистрация: 21.12.2008
Сообщений: 7
|
а вторую?????((((
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Составить программу, определяющую количество чисел, делящихся без остатка на три | phoenixSV | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 05.12.2008 15:05 |
Функция определить цифра или нет. | dx+ | Общие вопросы Delphi | 8 | 26.05.2008 10:59 |
Какая программа подходит лучше всего для написании операционной системы? | Briz | Операционные системы общие вопросы | 6 | 26.10.2007 11:12 |
нужна программа или скрипт | Андрей Попов | Фриланс | 1 | 02.09.2007 11:13 |
Какая разница,между ClientSockets и ServerSockets или [indy] T | andrey4623 | Компоненты Delphi | 3 | 18.08.2007 03:29 |