Напишите программу,которая получает два случайных числа и находит сумму,разность,произведение и сумму их квардратов на оснлве даннтй задачи​

Объяснение:

program XandY;

const

rndlim=50;

var

x, y : integer;

begin

x:=random(rndlim);

y:=random(rndlim);

Writeln('x=',x,' y=', y);

Writeln('x+y = ',x+y);

Writeln('x-y = ',x-y);

Writeln('x*y = ',x*y);

Writeln('x^2 + y^2 = ',sqr(x)+sqr(y));

end.

Запуск:

Free Pascal Compiler version 2.6.2-8 [2014/01/22] for x86_64

Copyright (c) 1993-2012 by Florian Klaempfl and others

Target OS: Linux for x86-64       

Compiling main.pas                

Linking a.out                     

16 lines compiled, 0.2 sec

x=27 y=29                          

x+y = 56                          

x-y = -2                          

x*y = 783                           

x^2 + y^2 = 1570

// идея решения: a * b (если b > 0) эквивалентно сумме a + a + ... + a (b раз)

// если b < 0, меняем знак у a

// если b = 0, ответ всегда 0

#include <iostream>

int mult(int a, int b) {

 if (b == 0) return 0;

 if (b < 0) return mult(-a, -b);

 int product = 0;

 while (b > 0) {

   product += a;

   b--;

 }

 return product;

}

int main() {

 int a, b;

 std::cin >> a >> b;

 std::cout << mult(a, b);

 return 0;

}

Пример ввода: -2 -7

Пример вывода: 14