Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Паскаль!!!
Дана сумма и разность двух чисел. Определить эти числа

Ответ оставил Гость

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.