Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.74/43: Рейтинг темы: голосов - 43, средняя оценка - 4.74
Дмитрий Макеев
0 / 0 / 1
Регистрация: 03.01.2014
Сообщений: 65
1

Определить, есть ли среди трех чисел хотя бы одно чётное и хотя бы одно нечётное

24.02.2014, 20:40. Просмотров 7782. Ответов 5
Метки нет (Все метки)

Чётные и нечётные числа
Дано три целых числа a, b, c. Определить, есть ли среди них хотя бы одно чётное и хотя бы одно нечётное.


Технические условия
Входные данные

Числа a, b, c, не превышающие по модулю 10000.

Выходные данные

Вывести "YES" или "NO".
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.02.2014, 20:40
Ответы с готовыми решениями:

Определить, есть ли среди чисел хотя бы одно четное и хотя бы одно нечетное
Разбор 1)Можно создать 2 булевские переменные и каждое число проверять одним...

Определите, имеется ли среди заданных целых чисел A, B, C хотя бы одно чётное
Помогите решить. 1. Определите, имеется ли среди заданных целых чисел A, B,...

Определить, имеется ли среди заданных целых чисел а, b, с хотя бы одно четное
8. Определить, имеется ли среди заданных целых чисел а, b, с хотя бы одно...

Верно ли, что среди чисел - sin x в n степени, где н= от 1 до 30, есть хотя бы одно отрицательное число
если среди чисел - sin x в n степени, где н= от 1 до 30, есть хотя бы 1-но...

Определите, имеется ли среди заданных чисел А, В, С хотя бы одно четное.
Помогите пожалуйста

5
Heft9nic
1 / 1 / 3
Регистрация: 04.03.2013
Сообщений: 10
24.02.2014, 20:49 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program sds;
var
b,a,c: integer;
Begin
read(a);
read(b);
read(c);
if (a mod 2 = 0) then
writeln('YES') else
   if (b mod 2 = 0) the 
    writeln('YES') else
       if (c mod 2 = 0) then 
         writeln('YES') else
          writeln('NO');
end.
0
FedorBoom
102 / 70 / 79
Регистрация: 06.02.2014
Сообщений: 211
24.02.2014, 21:05 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Heft9nic, твоя программа работает неправильно. Если все три числа будут четными, оно все равно выведет "yes". Вот мой вариант.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var abc: array [1..3] of integer; i, m0, m1: integer;
 begin
  m0:=0; m1:=0;
  write('Ââåäèòå Г·ГЁГ±Г«Г*: ');
  for i:= 1 to 3 do readln(abc[i]);
 
  for i:= 1 to 3 do begin
    if abc[i] mod 2 = 0 then m0:= m0+1
    else m1:= m1+1;
  end;
 
  if (m0<>0) and (m1<>0) then writeln('Г…Г±ГІГј Г·ГҐГІГ*ûå ГЁ Г*ГҐГ·ГҐГІГ*ûå.')
  else writeln('Èëè òîëüêî Г·ГҐГІГ*ûå, èëè òîëüêî Г*ГҐГ·ГҐГІГ*ûå.');
  readln;
 end.
0
Дмитрий Макеев
0 / 0 / 1
Регистрация: 03.01.2014
Сообщений: 65
24.02.2014, 21:33  [ТС] 4
а все врубился))

Добавлено через 3 минуты
а можешь сделать так чтобы вводилось не с помощью цикла, а как по условию a,b,c?) Заранее благодарен.
0
FedorBoom
102 / 70 / 79
Регистрация: 06.02.2014
Сообщений: 211
24.02.2014, 21:54 5
Лучший ответ Сообщение было отмечено Дмитрий Макеев как решение

Решение

Могу, но много, много условий получится. А вы массивы с циклами еще не прошли, чтоль?
В принципе, все условия можно обьединить OR'ами и AND'ами.
Pascal
1
2
3
4
5
6
7
8
9
10
11
var a, b, c : integer;
 begin
  writeln('Ââåäèòå Г·ГЁГ±Г«Г* --> ');
  readln(a);
  readln(b);
  readln(c);
  if ((a mod 2=0) or (b mod 2=0) or (c mod 2=0)) and ((a mod 2=1) or (b mod 2=1) or (c mod 2=1)) then
  writeln('Г…Г±ГІГј Г·ГҐГІГ*ûå ГЁ Г*ГҐГ·ГҐГІГ*ûå.')
  else writeln('Èëè òîëüêî Г·ГҐГІГ*ûå, èëè òîëüêî Г*ГҐГ·ГҐГІГ*ûå.');
  readln;
 end.
1
Дмитрий Макеев
0 / 0 / 1
Регистрация: 03.01.2014
Сообщений: 65
24.02.2014, 22:07  [ТС] 6
хах прошли конечно) но тут я условие не в школу, а на сайт кидаю, тут точно по условию)

Добавлено через 3 минуты
спасибо, засчитало)
0
24.02.2014, 22:07
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.02.2014, 22:07

Определить, верно ли, что среди трех данных целых чисел есть хотя бы одна пара взаимно противоположных
среди трех данных целых чисел есть хотя бы одна пара взаимно противоположных ...

Определить, есть ли в последовательности хотя бы одно число, кратное 7
помогите срочно в паскалеАВС!!! Дана непустая последовательность целых чисел,...

Даны целые числа а1, а2,. Известно,что а1>0 и что среди а1, а2,.есть хотя бы одно отрицательное число
Помогите,при запуске выдает ошибку Даны целые числа а1, а2,... Известно,...


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

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

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