1. По натуральному числу х выяснить следующее за ним число. 2. По двум натуральным числам...

Question

1. По натуральному числу х выяснить следующее за ним число. 2. По двум натуральным числам Х и У дать ответ на вопрос :
Х>У Х=У Х<У</strong>
3.По натуральному числу вычислить х - 1 , если это возможно по натуральным числам. 4. По двум натуральным числам вычислить х-у если это возможно. Иначе выдать "разность не имеет натуральное число". 5. По двум натуральным числам х и у найти их произведение. 6.По двум натуральным числам х и у найти частное и остаток при делении х/у.
Во всех случаях x=6, y=3

Answer 1

1.
var x, m: integer;
begin

x := 6;
m := x + 1;

end.


2.
var x, y: integer;
begin

x := 6;
y := 3;

if x>y then writeln('x>y - istinno')
else writeln('x>y - lozhno')
if x=y then writeln('x=y - istinno')
else writeln('x>y - lozhno')
if xelse writeln('x>y - lozhno')

end.


3.
1.
var x, m: integer;
begin

x := 6;
if x-1>0 then m := x - 1;

end.


4.
var x, y, m: integer;
begin

x := 6;
y := 3;

if x-y>0 then m := x - y
else writeln('raznost ne imeet naturalnoe chislo')

end.


5.
var x, y, m: integer;
begin

x := 6;
y := 3;

m := x * y;

end.


6.
var x, y, m, n: integer;
begin

x := 6;
y := 3;

n := x / y;
m := x mod y;

end.