Напишите программу для решения задачи. С2.Даны целые числа a,b,с.Если а≤b≤c,то все числа замените квадратами,если а больше b больше c,то каждое число замените наибольшим из них,в противном случае смените знак каждого числа. С2....

Напишите программу для решения задачи. С2.Даны целые числа a,b,с.Если а≤b≤c,то все числа замените квадратами,если а>b>c,то каждое число замените наибольшим из них,в противном случае смените знак каждого числа. С2.По номеру месяца выдайте квартал,которому он принадлежит.
Гость
Ответ(ы) на вопрос:
Гость
var a,b,c:integer; begin readln(a,b,c); if (a<=b) and (b<=c) then begin a:=a*a; b:=b*b; c:=c*c; end else if (a>b) and (b>c) then begin if a
Не нашли ответ?
Ответить на вопрос
Похожие вопросы