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

193

245

Посмотреть ответы 2

Ответы на вопрос:

timamirzoev

Информатика

4,8(31 оценок)

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< b then a: =b; if a< c then a: =c; b: =a; c: =a; end else begin a: =a*(-1); b: =b*(-1); c: =c*(-1) end; writeln(a: 4, b: 4, c: 4); end.