Работа по pascal

составьте программу и блок схемы

  • var x, y : integer;
    var S : real;

    begin

    write('Значение х= '); readln(x);
    write('Значение y= '); readln(y);

    if (x <> 0) and (y <> 0)
    then S:= 1 / x + 1/y;
    if (x <> 0) and (y = 0)
    then S:= 1/x;
    if (x = 0) and (y <> 0)
    then S:= 1/y;
    if (x = 0) and (y = 0)
    then S:=0;

    writeln('Значение S = ', S:0:1);
    readln();

    end.

  • - ввод х и у;
    - проверка на соответствие первому условию;
    - в противном случае проверка на соответствие второму условию;
    - в противном случае проверка на соответствие третьему условию;
    - и просто в противном случае (он же "элс") - результат 0.
    Все. останутся мелочи - написать программу и составить её блок-схему

Вас заинтересует