1) Напишите линейную программу, в результате выполнения которой целочисленные переменные x и y обменяются значениями. При этом нельзя использовать дополнительные переменные. Найдя такой алгоритм, определите, в чем его недостаток по сравнению с методом обмена через третью переменную. Можно ли его применять для вещественных чисел? (Паскаль)

2) Напишите оператор присваивания, в результате выполнения которого, целочисленной переменной h присвоится значение цифры, стоящей в разряде сотен в записи положительного целого числа k (например, если k = 28 796, то h = 7).

Question

Информатика

Матя

21 февраля, 08:22

1) Напишите линейную программу, в результате выполнения которой целочисленные переменные x и y обменяются значениями. При этом нельзя использовать дополнительные переменные. Найдя такой алгоритм, определите, в чем его недостаток по сравнению с методом обмена через третью переменную. Можно ли его применять для вещественных чисел? (Паскаль)

2) Напишите оператор присваивания, в результате выполнения которого, целочисленной переменной h присвоится значение цифры, стоящей в разряде сотен в записи положительного целого числа k (например, если k = 28 796, то h = 7).

+4

Ответы (1)

Знаете ответ?

Аполлинарий · Answer 1

1)

var x, y:real;

begin

x:=random (1,100) ;

y:=random (1,100) ;

writeln ('Ввели: x=', x,' y=', y) ;

x:=x+y;

y:=x-y;

x:=x-y;

writeln ('Поменяли: x=', x,' y=', y) ;

end.

2)

var h, k:integer;

begin

k:=random (10000,99999) ;

writeln ('Ввели: k=', k) ;

h: = (k mod 1000) div 100;

writeln ('h=', h) ;

end.