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

Question

Гася

19 августа, 13:55

+4

Ответы (2)

Знаете ответ?

Октавия · Answer 1

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.

Ладя · Answer 2

Var

a, b: real;

begin

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

readln (a, b) ;

if a = b then a : = a * b

else a : = a / b;

writeln (a) ;

end.