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

Question

Даны два числа .Если они не равны ,то найти их сумму и произведение . Если произведение больше суммы ,то определить на сколько.

Answer 1

Program ran;
label main;
var
x, y, min, max, s, p, d: integer;
begin
randomize;
writeln('ВВОД ПРОМЕЖУТКА');
write('от: ');
readln(min);
write('до: ');
readln(max);
main:
x := min + random(max - min + 1);
y := min + random(max - min + 1);
if not(x = y) then
begin
s := x + y;
writeln('сумма: ', s);
p := x * y;
writeln('произведение: ', p);
if p > s then
begin
d := p - s;
writeln('произведение больше суммы на ', d);
end;
end
else
begin
writeln('случайные числа равны, повтор генерации...');
goto main;
end;
end.²

Comments

Мне нужно в языке С или С++

---

А разве это следует из условия Вашего задания?

---

Нет ну пожалуйста помогите

---

бро ща напишу

---

Спасибо))))

---

Если не сложно то вот еще одна задачка.

---

#include
using namespace std;
int main(){
int a,b;
cin>>a>>b;
if(a!=b){
cout<<a<<"*"<<b<<"="<<a*b<<endl;<br> cout<<a<<"+"<<b<<"="<<a+b<<endl;<br> if(a*b>a+b) cout<<a*b-(a+b)<<endl;<br> }
else cout<<a<<"="<<b<<endl;<br> return 0;
}

---

В трапеции заданы стороны a,b,c,d. Найти и вывести на экран остальные элементы трапеции. Язык С или С++

---

нельзя задачи в комментариях писать

Answer 2

Var
  a,b,s,p:real;

begin
  Write('Введите два числа через пробел: ');
  Read(a,b);
  if a<>b then begin
    s:=a+b; p:=a*b;
    Writeln('Сумма равна ',s,', произведение равно ',p);
    if p>s then Writeln('Произведение больше суммы на ',p-s:0:5)
    end
  else Writeln('Числа равны')
end.

Пример
Введите два числа через пробел: 24 15.2
Сумма равна 39.2, произведение равно 364.8
Произведение больше суммы на 325.60000