Составьте программу, определяющую остаток от деления числа а на число в. составьте программу, заменяющую большее из двух данных чисел модулем суммы, а меньшее – модулем полуразности этих чисел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.

//pascal const   n = 5;   m = 5; var   i, j, k: integer;   a: array [1 .. n, 1 .. m] of integer; begin   for i : = 1 to 5 do   begin       for j : = 1 to 5 do       begin           if j mod 2 = 0 then a[i, j] : = 0           else a[i, j] : = 1;           write(a[i, j]: 3);       end;       writeln;   end;       readln; end.

Const   n = 4;   m = 5; var   i, j, k: integer;   a: array [1 .. n, 1 .. m] of integer; begin   i : = 1;   for j : = 1 to 5 do a[i, j] : = j;   k : = 0;   for i : = 3 to n + 1 do   begin       for j : = 1 to m do       begin           k : = (i - 1) * m + j;           a[i - 1, j] : = k;       end;   end;   for i : = 1 to n do   begin       for j : = 1 to m do           write(a[i, j]: 4);       writeln;   end;   readln; end.