Паскаль!

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

Question

Информатика

Сильва

8 марта, 00:48

Паскаль!

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

+1

Ответы (1)

Знаете ответ на вопрос?

Петяй · Answer 1

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.

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

Паскаль!

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