Question

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

Answer 1

А вот программа на Python
k = raw_input("Введите сумму чисел:")
l = raw_input("Введите разность чисел:")
print "Задуманые числа:", (k+l)/2, (k-l)/2

Я думаю написать ее на паскале у вас не составит труда, ибо зачем делать перебор когда можно просто решить систему?

Answer 2

{1-й вариант}
var
x,y,i,j: integer;
begin
writeln('Введите разность задуманных чисел: ');
read(x);
writeln('Введите сумму задуманных чисел: ');
read(y);
writeln('Задуманные числа: ',(y+x)/2,' и ',(y-x)/2); 
end.   

{2-й вариант}
var
x,y,i,j: integer;
begin
writeln('Введите разность задуманных чисел: ');
read(x);
writeln('Введите сумму задуманных чисел: ');
read(y);
for i:=1 to 1000 do
 begin
  for j:=1 to 1000 do
   if j - i = x then
    if j + i = y then writeln('Задуманные числа: ',j,' и ',i);
  end; 
end.