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

drakonchik5005 drakonchik5005    2   04.07.2019 16:00    1

Ответы
Вуди228 Вуди228  28.07.2020 09:57
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика