Помогите пожалуйста.Срочно нужно
Введите с клавиатуры три числа:A,B,C. ЕслиA>B>C>0,то замените все числа их квадратами и выведите результаты на экран.Если они отрицательны и не равны между собой, то каждое число замените наибольшим из них и выведите результаты.Иначе,найдите и выведите их сумму.
ПАСКАЛЬ
Введите с клавиатуры три числа:A,B,C. ЕслиA>B>C>0,то замените все числа их квадратами и выведите результаты на экран.Если они отрицательны и не равны между собой, то каждое число замените наибольшим из них и выведите результаты.Иначе,найдите и выведите их сумму.
ПАСКАЛЬ
More Questions From This User See All
Answers & Comments
Begin
Readln(a,b,c);
If (a>b) and (b>c) and (c>0) then
Begin
a:=a*a; b:=b*b; c:=c*c;
end else
If (a<0) and (b<0) and (c<0) and (a<>b) and (a<>c) and (b<>c) then
Begin
m:=a;
If b>m then m:=b;
If c>m then m:=c;
a:=m; b:=m; c:=m;
end else
Begin
Writeln('Сумма: ',a+b+c);
halt(0);
end;
Writeln('A = ',a,' B =',b,' C = ',c);
end.