Question

Даны два ненулевых числа. Составьте программу нахождения суммы, разности, произведения и частного квадратов этих чисел. (Паскаль)

Answer 1

var a,b: integer;

begin

writeln('Введите значение а: ');

readln(a);

writeln('Введите значение b: ');

readln(b);

a:=sqr(a);

b:=sqr(b);

writeln('a = ',a,'  b = ',b);

writeln('a + b = ',a+b);

writeln('a - b = ',a-b);

writeln('a * b = ',a*b);

writeln('a / b = ',a/b);

end.