0 / 0 / 0
Регистрация: 17.12.2009
Сообщений: 5
1

Определить,является ли число четным или нечетным.

25.12.2009, 09:06. Показов 88684. Ответов 5
Метки нет (Все метки)

Добрые люди помогите пожалуйста, скоро экзамен а допуска к нему нет. Надо решить 2 задачи:
1. Дано натуральные число.Определить,является ли оно четным или нечетным. Ответ вывести в форме "четное" или "нечетное".
2.Используя оператор выбора,составить программу для решения задачи. Ввывести на печать название N-го месяца года.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.12.2009, 09:06
Ответы с готовыми решениями:

Определить, является число четным или нечетным
Задача 3. Дано целое число А. Определить является число четным или нечетным. Последовательно...

Определить является ли число четным или нечетным
1)Ввести число Q типа real, используя условный оператор вычислить модуль числа и вывести результат...

Является ли количество букв "о" в заданном слове четным или нечетным?
1)Определить, является ли количество букв "о" в заданном слове четным или нечет-ным. 2)Дана...

определить минимальный элемент из трех чисел и проверить явл. оно четным или нечетным
определить минимальный элемент из трех чисел и проверить явл. оно четным или нечетным

5
Почетный модератор
64254 / 47554 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
25.12.2009, 09:32 2
1.
Pascal
1
if n mod 2=0 then write('Четное') else write('Нечетное');
2.
Pascal
1
2
3
4
5
6
7
case n of
1:write('Январь');
2:write('Февраль');
.....
12:write('Декабрь');
else write('Такого месяца нет!');
end;
0
32 / 32 / 19
Регистрация: 06.10.2009
Сообщений: 108
25.12.2009, 10:24 3
Pascal
1
2
3
4
5
6
7
8
var n:integer;
begin
     writeln('задайте целое число');
     readln(n);
    if odd(n) then writeln('нечетное')
     else writeln('четное');
readln
end.
0
0 / 0 / 0
Регистрация: 17.12.2009
Сообщений: 5
25.12.2009, 12:19  [ТС] 4
Спасибо большое

Добавлено через 1 час 10 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Program P2;
Var
n:Integer;
Begin
WriteLn('n=');
ReadLn(n);
case n of
1:write('Январь');
2:write('Февраль');
.....
12:write('Декабрь');
else write('Такого месяца нет!');
end.
Выдаёт ошибку:пересечение диапазонов меток в операторе case. Как быть???
0
Почетный модератор
64254 / 47554 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
25.12.2009, 12:21 5
Вы что, так и написали? А где остальные месяцы? Я же для примера написал. Заполните в case для 3,4,5,6,7,8,9,10,11.
0
0 / 0 / 0
Регистрация: 17.12.2009
Сообщений: 5
25.12.2009, 12:30  [ТС] 6
неее, это то понятно я заполнил все остальные, но при запуске программы выдаёт такую ошибку

Добавлено через 2 минуты
Ошибка исправлена!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.12.2009, 12:30
Помогаю со студенческими работами здесь

Определить, является ли целое число N четным двузначным числом, и делится ли оно на число K
Определить, является ли целое число N четным двузначным числом, и делится ли оно на число K (...

Определить, является ли число чётным
1. Которая будет показывать является ли данное число чётным 2. Является ли данное число двузначны

Определить, является ли введенное число N четным
Определить является ли введенное вами число N четным. Для четного числа извлечь квадратный корень,...

Определить, начинается ли четырёхзначное число на 7 и является ли оно чётным
Написать программу выводящую true, если значение логической переменной t истинно, и false в...

Определить, является ли данное целое число N четным двузначным числом
Определить, является ли данное целое число N четным двузначным числом. Добавлено через 2 минуты...

Дано натуральное число. Определить, является ли разность его максимальной и минимальной цифр чётным числом
Дано натуральное число. Определить, является ли разность его максимальной и минимальной цифр чётным...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru