Question

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

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

Answer 1

{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.