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

polinasmi1 polinasmi1    3   26.08.2019 23:00    0

Ответы
annvs1 annvs1  31.08.2020 22:17
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.
ПОКАЗАТЬ ОТВЕТЫ
2003veronika07 2003veronika07  31.08.2020 22:17
Var
a, b: real;
begin
write('Введите 2 числа: ');
readln(a, b);
if a = b then a := a * b
else a := a / b;
writeln(a);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика