Описать двуместную функцию от целочисленных аргументов. Если аргументы меньше нуля, функция возвращает минус один. При первом четном аргументе и втором нечетном аргументе функция возвращает минус два. При первом нечетном аргументе и втором четном аргументе функция возвращает минус три. Если оба аргумента нечетные и первый больше второго функция возвращает первый аргумент, умноженный на два. Если оба аргумента четные и первый больше второго функция возвращает второй аргумент, умноженный на три- Pascal(Паскаль)

program lab2_v1;
var
   a,b,F:integer;
begin
     writeln('Введите A: ');readln(a);
     writeln('Введите B: ');readln(b);
     if (b<0) then F:=-1
              else if odd(a)=true then if odd(b)=true then F:=2*a
                                                      else F:=-3
                                  else if odd(b)=true then F:=-2
                                                      else F:=3*b;
     writeln('Ответ: ',F);
     readln;
end.

Похожие записи/страницы:

Leave a Comment

− 3 = 1