profile
Опубликовано 6 лет назад по предмету Информатика от anasyasya31022002

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

Паскаль

  1. Ответ
    Ответ дан Bfalse

    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.

Самые новые вопросы