Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
plzhelpme
0 / 0 / 1
Регистрация: 16.01.2018
Сообщений: 36
#1

Дано целое число. Вывести его строку-описание вида «отрицательное четное число», «нулевое число »,« положительное нечетн - Pascal

18.01.2018, 10:18. Просмотров 172. Ответов 2
Метки нет (Все метки)

Дано целое число. Вывести его строку-описание вида «отрицательное четное число», «нулевое
число »,« положительное нечетное число »и т. д.
http://www.cyberforum.ru/pascal/thread998292.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.01.2018, 10:18
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дано целое число. Вывести его строку-описание вида «отрицательное четное число», «нулевое число »,« положительное нечетн (Pascal):

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

Дано целое число в диапазоне 100-900. Вывести в строку описание данного числа, например: 256 - "двести пятьдесят шесть"
Дано целое число в диапазоне 100-900. Вывести в строку описание данного числа,...

Дано целое положительное число
4. Дано целое положительное число. Вывести символы, изображающие цифры этого...

Дано вещественное число A и целое число N (> 0). Используя один цикл, вывести все целые степени числа A от 1 до N.
Дано вещественное число A и целое число N (> 0). Используя один цикл, вывести...

Дано целое число. Вывести строку — название соответствующей цифры
Плииииииииииз спасите мою шкуру......... Вариант 15. 3. Дано целое число в...

2
Puporev
Модератор
54131 / 41764 / 28875
Регистрация: 18.05.2008
Сообщений: 98,290
18.01.2018, 10:26 #2
Лучший ответ Сообщение было отмечено plzhelpme как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var n:integer;
begin
write('Введите целое число n=');
readln(n);
if n=0 then write('нулевое число')
else if n<0 then
  if odd(n) then write('отрицательное нечетное число')
  else write('отрицательное четное число')
else
  if odd(n) then write('положительное нечетное число')
  else write('положительное четное число');
end.
1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3755 / 2452 / 2034
Регистрация: 22.11.2013
Сообщений: 6,821
18.01.2018, 11:05 #3
Или
Pascal
1
2
3
4
5
6
7
8
9
10
11
var n:integer;
begin
write('Введите целое число n=');
readln(n);
if n=0 then write('нулевое ')
else begin
  if n<0 then write('отрицательное ') else write('положительное ');
  if odd(n) then write('не');
end;
writeln('четное число');
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.01.2018, 11:05
Привет! Вот еще темы с решениями:

Дано целое число N (> 1). Найти наибольшее целое число K, при котором выполняется неравенство 3K < N.
Дано целое число N (&gt; 1). Найти наибольшее целое число K, при котором...

Дано двухзначное число. Найти число десятков, число единиц в нем, произведение его цифр
Помогите плиз=)) Дано двухзначное число. Найти число десятков ,число едениц в...

Дано вещественное число А и целое число N (>0). Вывести 1-А+А(в квадрате)-А(в кубе)+...+(-1)(в степени N) А(в степени N).
Дано вещественное число А и целое число N (&gt;0). Вывести 1-А+А(в квадрате)-А(в...

с клавиатуры вводится целое положительное число, определить его максимальную цифру
с клавиатуры вводится целое положительное число, определить его максимальную...


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

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

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