Паскаль!!! Дана сумма и разность двух чисел. Определить эти числа
Паскаль!!!
Дана сумма и разность двух чисел. Определить эти числа
Гость
Ответ(ы) на вопрос:
ГостьProgram EX1;
Var a,b,s,t:Integer;
Begin
Write ('Введите сумму двух чисел');
Read (s);
Write ('Введите разность двух чисел');
Read (t);
a:=(t+s)/2;
b:=t-a;
Write ('Числа равны','a=',a,'b=',b);
End.
Не нашли ответ?
Похожие вопросы