Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад