Составьте программу, определяющую остаток от деления числа А на число В. Составьте программу, заменяющую большее из двух данных чисел модулем суммы, а

Составьте программу, определяющую остаток от деления числа А на число В.
Составьте программу, заменяющую большее из двух данных чисел модулем суммы, а меньшее – модулем полуразности этих чисел.(PASCAL)

  • 1. program ostatok;

    uses crt;

    var a,b,ost:real;

    begin

    write('a= ');

    readln(a);

    write('b= );

    readln(b);

    ost:=a mod b;

    write('ostatok ot delenia A na B raven ',ost);

    readln;

    end.

     

    2. program modul;

    uses crt;

    var a,b,c,d: real;

    begin

    write('a= ');

    readln(a);

    write('b= );

    readln(b);

    c:=a-b;

    if c>0 then

    begin

    a:=abs(a+b);

    b:=abs((a-b)/2);

    write('a= ',a,'b= ',b);

    end

    else

    b:=abs(a+b);

    a:=abs((b-a)/2);

    write('a= ',a,'b= ',b);

    end;

    readln;

    end.


See also: