Даны 2 числа.Если они равны,то найти их произведение,иначе-частное
Даны 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.
Гостьvar
a, b: real;
begin
write('Введите 2 числа: ');
readln(a, b);
if a = b then a := a * b
else a := a / b;
writeln(a);
end.
Не нашли ответ?
Похожие вопросы