5. Исходя из условия задачи, исправьте программу и напишите правильное решение Задача: Даны три целых числа A, B, C. Определить, есть ли среди них хотя бы одно четное и хотя бы одно нечетное. var a, b, c, d: integer; begin read...
5. Исходя из условия задачи, исправьте программу и напишите правильное решение
Задача: Даны три целых числа A, B, C. Определить, есть ли среди них хотя бы одно четное и хотя бы одно нечетное.
var a, b, c, d: integer;
begin
readln (a, b, c);
d := 0;
if a mod 2 = 0
then d := d + 1;
if b mod 2 = 0
then d := d + 1;
if c mod 2 = 0
then d := d + 1;
if a mod 2 <> 0
then d := d + 1;
if b mod 2 <> 0
then d := d + 1;
if c mod 2 <> 0
then d := d + 1;
if d > 0
then writeln ('YES')
else writeln ('NO');
end.
Гость
Ответ(ы) на вопрос:
Гостьvar
i,n:integer;
IsOdd,IsEven:boolean;
begin
IsOdd:=false; IsEven:=false;
Write('Введите три числа: ');
for i:=1 to 3 do
begin
Read(n);
if n<>0 then
if (n mod 2)=0 then IsEven:=True
else IsOdd:=True
end;
Write('Среди введенных чисел ');
if IsOdd then Write('есть нечетное')
else Write('нет нечетных');
if IsEven then Write(' и есть четное')
else Write('и нет четных')
end.
Тестовое решение:
Введите три числа: 5 8 3
Среди введенных чисел есть нечетное и есть четное
Не нашли ответ?
Похожие вопросы