Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 30, средняя оценка - 4.87
Дмитрий Макеев
0 / 0 / 0
Регистрация: 03.01.2014
Сообщений: 65
#1

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

24.02.2014, 20:40. Просмотров 6429. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить, есть ли среди трех чисел хотя бы одно чётное и хотя бы одно нечётное (Pascal ABC):

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

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

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

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

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

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

5
Heft9nic
1 / 1 / 2
Регистрация: 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 / 43
Регистрация: 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 / 0
Регистрация: 03.01.2014
Сообщений: 65
24.02.2014, 21:33  [ТС] #4
а все врубился))

Добавлено через 3 минуты
а можешь сделать так чтобы вводилось не с помощью цикла, а как по условию a,b,c?) Заранее благодарен.
0
FedorBoom
102 / 70 / 43
Регистрация: 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 / 0
Регистрация: 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 - Pascal ABC
помогите срочно в паскалеАВС!!! Дана непустая последовательность целых чисел, оканчивающаяся числом -1. Определить, есть ли в...

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

Множества. Вывести все глухие согласные буквы, которые входят в каждое нечётное слово и не входят хотя бы в одно чётное - Pascal
Дано предложение,состоящее из слов,разделённых любым количеством пробелов и оканчивающееся точкой.Вывести в алфавитном порядке все глухие...

Массив: Определить, есть ли в этой таблице хотя бы одно число кратное k. - Pascal
Задана линейная таблица, состоящая из целых чисел. Определить есть ли в этой таблице хотя бы одно число кратное k. Помогите пожалуйста,...


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

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

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