Question

ПОМОГИТЕ РЕШИТЬ ПОЖАЛУЙСТА

Answer 1

var a,b:real; // Если не подходит, используйте integer

begin

read(a);

read(b);

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

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

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

if b=0 then writeln('На ноль делить нельзя')

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

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

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

writeln('|a|=', sqrt(sqr(a))); //корень из квадрата-есть модуль

writeln('|b|=', sqrt(sqr(b)));

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

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

if a<0 then writeln('Ошибка')

else writeln('sqrt(a)=', sqrt(a));

if b<0 then writeln('Ошибка')

else writeln('sqrt(b)=', sqrt(b));

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

end.