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.
Паскаль.Найти четное число.
Получил заданние, не знаю как приступить даже(((
В паскале нужно написать программку...
Имеется ли среди заданных чисел A, B, C хотя бы одно чётное?
В паскале нужно написать программку...
Имеется ли среди заданных чисел A, B, C хотя бы одно чётное?
Цитата: Kraken
Получил заданние, не знаю как приступить даже(((
В паскале нужно написать программку...
Имеется ли среди заданных чисел A, B, C хотя бы одно чётное?
В паскале нужно написать программку...
Имеется ли среди заданных чисел A, B, C хотя бы одно чётное?
- Для каждой задачи создавай отдельную тему.
- Дай теме нормальное название,а подробности о своих ощущениях
лучше опускай,это не интересно никому.Тебе помощь нужна ведь ? Или поддержка в твоей расстерянности ? Мне личным сообщением пришли новое название темы.
Можно их перемножить и проверить результат на чётность. Но прямой метод быстрее и без переполнений, хотя переполнение на чётность и не повлияет.
а в пасике нет функции odd???:cool:
Цитата: David_K800i
а в пасике нет функции odd???:cool:
А в каком ЯВУ она есть? Есть функция получения остатка от деления, в том числе на два. Для гурманов в ЯВУ никто не мешает сделать
Код:
asm{
test что надо,1
jz чётно
} end
test что надо,1
jz чётно
} end
Вообще клавиша F1 рулит. ;-)
Да чего тут мудрить? Решение в 2 строчки ведь!
TRUE - присутствует, FALSE - не присутствует
TRUE - присутствует, FALSE - не присутствует
Код:
VAR
a,b,c: integer;
BEGIN
readln(a,b,c);
writeln(not(Odd(a) and Odd(b) and Odd(c)));
readln;
END.
a,b,c: integer;
BEGIN
readln(a,b,c);
writeln(not(Odd(a) and Odd(b) and Odd(c)));
readln;
END.