1. По натуральному числу х выяснить следующее за ним число. 2. По двум натуральным числам Х и У дать ответ на вопрос :
Х>У Х=У Х<У
3.По натуральному числу вычислить х - 1 , если это возможно по натуральным числам. 4. По двум натуральным числам вычислить х-у если это возможно. Иначе выдать "разность не имеет натуральное число". 5. По двум натуральным числам х и у найти их произведение. 6.По двум натуральным числам х и у найти частное и остаток при делении х/у.
Во всех случаях x=6, y=3
Х>У Х=У Х<У
3.По натуральному числу вычислить х - 1 , если это возможно по натуральным числам. 4. По двум натуральным числам вычислить х-у если это возможно. Иначе выдать "разность не имеет натуральное число". 5. По двум натуральным числам х и у найти их произведение. 6.По двум натуральным числам х и у найти частное и остаток при делении х/у.
Во всех случаях x=6, y=3
Answers & Comments
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 x<y then writeln('x<y - istinno')
else 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.