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

Х>У Х=У Х<У

3. По натуральному числу вычислить х - 1, если это возможно по натуральным числам. 4. По двум натуральным числам вычислить х-у если это возможно. Иначе выдать "разность не имеет натуральное число". 5. По двум натуральным числам х и у найти их произведение. 6. По двум натуральным числам х и у найти частное и остаток при делении х/у.

Во всех случаях x=6, y=3

Question

Информатика

Валерий

4 октября, 14:22

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

Х>У Х=У Х<У

3. По натуральному числу вычислить х - 1, если это возможно по натуральным числам. 4. По двум натуральным числам вычислить х-у если это возможно. Иначе выдать "разность не имеет натуральное число". 5. По двум натуральным числам х и у найти их произведение. 6. По двум натуральным числам х и у найти частное и остаток при делении х/у.

Во всех случаях x=6, y=3

+1

Ответы (1)

Знаете ответ на вопрос?

Митрий · 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 x
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.