Надо решить четыре задачи.1) Дано два числа, если их сумма больше пяти, то найти корень квадратного из этой суммы, в противоположенном случаи найти квадрат суммы.2) Дано три числа, если модуль произведения этих чисел больше или...

Надо решить четыре задачи. 1) Дано два числа, если их сумма больше пяти, то найти корень квадратного из этой суммы, в противоположенном случаи найти квадрат суммы. 2) Дано три числа, если модуль произведения этих чисел больше или равно 10,то уменьшить произведения в три раза, иначе найти куб этого произведения. 3) Дано два числа, найти квадрат наибольшего из этих чисел. 4) Дано число, если оно меньше 20, но больше нуля, то уменьшить его на 4, иначе найти модуль этого числа.
Гость
Ответ(ы) на вопрос:
Гость
1)uses crt; var a,b:integer; s:real; begin readln(a); readln(b); if (a+b>5) then s:=sqrt(a+b) else s:=sqr(a+b); writeln(s); end. 2)uses crt; var a,b,c:integer; pr:real; begin readln(a); readln(b); readln(c); if (abs(a*b*c)>=10) then pr:=(a*b*c)/3 else pr:=(a*b*c)*(a*b*c)*(a*b*c); writeln(pr); end. 3)uses crt; var a,b,sq:integer; begin readln(a); readln(b); if (a>b) then sq:=sqr(a); if (b>a) then sq:=sqr(b); writeln(sq); end. 4)uses crt; var a:integer; begin readln(a); if (a<20) and (a>0) then a:=a-4 else a:=abs(a); writeln(a); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы