Даны 2 числа. Если они равны, то найти их произведение, иначе-частное

Question

Ипатий

25 ноября, 19:08

+3

Ответы (2)

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

Федюня · Answer 1

Var

a, b: real;

begin

write ('Введите 2 числа: ') ;

readln (a, b) ;

if a = b then a : = a * b

else a : = a / b;

writeln (a) ;

end.

Фалалей · Answer 2

Var x, y, p, t:real;

begin

read (x, y) ;

if x=y then p:=x*y else t:=x/y;

writeln (p, t) ;

end.