Использование оператора IF

[and-nmr]

Программисты, помогите пожалуйста.....скоро экзамен....нужно написать такую программку:

Вычислить сумму А, В и С, если все они четны, разность, если есть хотя бы одно нечетное (с использованием оператора if).

Зарание всем огромное спасибо))))....

[Niro]

Число чётное, если оно делится на два без остатка, т.е. остаток равен нулю. Остаток можно проверить использую функцию "mod", про if then else можите и сами почитать.
Задание элементарное Вам должно быть стыдно просить его решить, да и тем более скоро экзамен, так что самостоятельное решение не помешает

[Кинельски]

Сообщение от and-nmr

Программисты, помогите пожалуйста.....скоро экзамен....нужно написать такую программку:

Вычислить сумму А, В и С, если все они четны, разность, если есть хотя бы одно нечетное (с использованием оператора if).

Зарание всем огромное спасибо))))....

алгоритм:
сначала узнаем
А.В.С четное или нет
(деление с остатком)
потом
проверяем
if a=0 and b=0 c=0 then
...
тут узнаем сумму, так как все они четные.
...
else
...
какое то не четное было и узнаем что то другое
...

[Grag]

Сообщение от Niro

Число чётное, если оно делится на два без остатка, т.е. остаток равен нулю. Остаток можно проверить использую функцию "mod"

Нечетность числа можно определить и с помощью функции ODD(X)...

if not odd(x)
  then //X - четное...

[Аида]

Var     
        A,B,C:integer;

Begin
    Read(A,B,C);
   If (A mod 2=0) and (B mod 2=0) and (C mod 2=0) then
         Begin
            S:=A+B+C;
            Write(‘summa=’, S);
         End;

If (A mod 2<>0) or (B mod 2<>0) or (C mod 2<>0) then
         Begin
            R:=A-B-C;
            Write(‘raznost=’, R);
          End;
End;

From Stilet: И почему код не оформлен? Для него у нас есть кнопка # в редакторе. Попрошу ей пользоваться.

[Mad_Cat]

Аида
а где переменные s и r обьявлены?

Var 
A,B,C:integer;
Begin
Read(A,B,C);
If not odd(a) and not odd(b) and not odd(c) then
Write(‘summa=’, a+b+c);
else 
Write(‘raznost=’,A-B-C);
readln;
end.