Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 6458
Последний выпуск: 19.06.2015

Паскаль.Найти четное число.

30K
26 мая 2008 года
Kraken
17 / / 03.05.2008
Получил заданние, не знаю как приступить даже(((
В паскале нужно написать программку...
Имеется ли среди заданных чисел A, B, C хотя бы одно чётное?
309
26 мая 2008 года
m_Valery
1.0K / / 08.01.2007
Цитата: Kraken
Получил заданние, не знаю как приступить даже(((
В паскале нужно написать программку...
Имеется ли среди заданных чисел A, B, C хотя бы одно чётное?


  1. Для каждой задачи создавай отдельную тему.
  2. Дай теме нормальное название,а подробности о своих ощущениях
    лучше опускай,это не интересно никому.Тебе помощь нужна ведь ? Или поддержка в твоей расстерянности ? Мне личным сообщением пришли новое название темы.
17K
26 мая 2008 года
ALEX_
40 / / 19.04.2007
 
Код:
var a,b,c:integer;
begin
writeln("Введите А,В,С");
readln(a,b,c);
if (a mod 2 =0) or (b mod 2 =0) or (c mod 2=0) then
writeln("Хотя бы одно число четное")
else
writeln("Ни одного четного");
readln;
end.
1.6K
26 мая 2008 года
Vov4ick
476 / / 01.02.2007
Можно их перемножить и проверить результат на чётность. Но прямой метод быстрее и без переполнений, хотя переполнение на чётность и не повлияет.
27K
27 мая 2008 года
David_K800i
36 / / 27.05.2008
а в пасике нет функции odd???:cool:
1.6K
27 мая 2008 года
Vov4ick
476 / / 01.02.2007
Цитата: David_K800i
а в пасике нет функции odd???:cool:


А в каком ЯВУ она есть? Есть функция получения остатка от деления, в том числе на два. Для гурманов в ЯВУ никто не мешает сделать

 
Код:
asm{
test что надо,1
jz чётно
} end

Вообще клавиша F1 рулит. ;-)
421
28 мая 2008 года
sherry
207 / / 16.10.2006
Да чего тут мудрить? Решение в 2 строчки ведь!
TRUE - присутствует, FALSE - не присутствует

 
Код:
VAR
  a,b,c: integer;
BEGIN
  readln(a,b,c);
  writeln(not(Odd(a) and Odd(b) and Odd(c)));
  readln;
END.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог