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

Question

Информатика

Стефана

10 ноября, 14:21

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

+4

Ответы (1)

Знаете ответ на вопрос?

Манюша · Answer 1

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
if a
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.