Даны 2 числа, если первое чётное,а второе нечётное, найти их сумму, если нет, то найти разность
Паскаль
Ответы на вопрос
Ответил Bfalse
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 год назад
Алгебра,
8 лет назад