1) Напишите линейную программу,в результате выполнения которой целочисленные переменные x и y обменяются значениями. При этом нельзя использовать дополнительные переменные . Найдя такой алгоритм,определите,в чем его недостаток по сравнению с методом обмена через третью переменную. Можно ли его применять для вещественных чисел? (Паскаль)
2) Напишите оператор присваивания, в результате выполнения которого, целочисленной переменной h присвоится значение цифры, стоящей в разряде сотен в записи положительного целого числа k( например, если k= 28 796, то h= 7).
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
