Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
aleg
0 / 0 / 0
Регистрация: 28.06.2011
Сообщений: 19
1

Вывести строку-описание числа

11.07.2011, 10:45. Просмотров 710. Ответов 4
Метки нет (Все метки)

Дано целое число.Вывести его строку-описание вида (отрицательное четное число ) (нулевое число) (положительное число)
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.07.2011, 10:45
Ответы с готовыми решениями:

Вывести строку – словесное описание числа
1. Дано целое число, лежащее в диапазоне от –999 до 999. Вывести строку – словесное описание...

Вывести строку – словесное описание числа
1. Дано целое число, лежащее в диапазоне от 1 до 9999. Вывести строку – словесное описание данного...

Вывести строку - описание данного числа.
Дано целое число в диапазоне от 100 до 999. Вывести строку - описание данного числа. Например 256 -...

Вывести строку — словесное описание заданного числа
Дано целое число в диапазоне 100 – 999. Вывести строку — словесное описание данного числа. пример...

Дано целое число в диапазоне 100 – 999. Вывести строку – словесное описание данного числа
Дано целое число в диапазоне 100 – 999. Вывести строку – словесное описание данного числа,...

4
bigar
53 / 53 / 36
Регистрация: 18.02.2011
Сообщений: 146
11.07.2011, 11:15 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от aleg Посмотреть сообщение
Дано целое число.Вывести его строку-описание вида (отрицательное четное число ) (нулевое число) (положительное число)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var
s:string;
begin
clrscr;
write('Vvedite chislo -> ');
read(S);
if s='0' then writeln('Nulevoe chislo');
if s[1]='-' then writeln('Otricatelnoe chislo');
if s[1] in ['1'..'9'] then writeln('Polojitelnoe chislo');
readkey;
end.
1
Zanexess
112 / 85 / 52
Регистрация: 22.10.2010
Сообщений: 227
11.07.2011, 11:36 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
uses crt;
var a:integer;
begin
Read (a);
 If a<0 then Write('Îòðèöàòåëüíîå ')
   else if a>0 then Write ('Ïîëîæèòåëüíîå ')
     else begin Write ('Íóëåâîå ÷èñëî'); exit; end;
 If odd (a) then Write ('íå÷åòíîå ÷èñëî')
   else Write ('÷åòíîå ÷èñëî');
end.
1
Puporev
Модератор
57832 / 44056 / 30424
Регистрация: 18.05.2008
Сообщений: 105,367
11.07.2011, 11:58 4
aleg, Ты тупой, или прикидываешься? Для чего тебе писали здесь?
Определение числа
1
aleg
0 / 0 / 0
Регистрация: 28.06.2011
Сообщений: 19
11.07.2011, 23:45  [ТС] 5
Извени день был хреновый самому потом дошло еще раз (сори).
0
11.07.2011, 23:45
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.07.2011, 23:45

Вывести строку – словесное описание указанного возраста
Дано целое число в диапазоне 20 – 69, определяющее возраст (в годах). Вывести строку – словесное...

Вывести строку-описание указанного количества заданий
Дано целое число в диапазоне 10–40, определяющее количество учеб- ных заданий по некоторой теме....

Дано целое число в диапазоне 1 – 5. Вывести строку — словесное описание соответствующей оценки
Begin66. Дано целое число в диапазоне 1 – 5. Вывести строку — словесное описание соответствующей...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.