Даны 2 числа, если первое чётное,а второе нечётное, найти их сумму, если нет, то найти...

0 голосов
68 просмотров

Даны 2 числа, если первое чётное,а второе нечётное, найти их сумму, если нет, то найти разность Паскаль


Информатика (12 баллов) | 68 просмотров
Дан 1 ответ
0 голосов

Var a, b:integer;

begin

Readln(a) ;

Readln(b) ;

If a mod 2=0 And b mod 2 <>0 then writeln(a+b)

Else writeln (a-b) ;

end.

(1.4k баллов)