Все числа заменить их квадратами

@Юлляха · Регистрация: 07.06.2011

Author24 — интернет-сервис помощи студентам

даны целые числа a,b,c. Если a<=b<=c, то все числа заменить их квадратами, если a>b>c, то каждое число заменить наибольшим из них, в противном случае сменить знак числа

@WebMax 2.0 · 22.12.2011, 13:16

Pascal

uses crt;
 
var a,b,c,max:integer;
 
begin
   clrscr;
   Write('Введите A и B и C: ' );readln(a,b,c);
   if a>b then if a>c then max:=a else max:=c else max:=b;
   If (b>=a) and (b<=c) then begin a:=sqr(a); b:=sqr(b); c:=sqr(c); end else
   If (b<a) and (b>c) then begin a:=max; b:=max; c:=max; end else
   begin
      If a>0 then a:=a*(-1) else a:=abs(a);
      If b>0 then b:=b*(-1) else b:=abs(b);
      If c>0 then c:=c*(-1) else c:=abs(c);
   end;
   Writeln('A = ',a,',  B = ',b,',  C = ',c);
   readln;
end.

@Юлляха 0 / 0 / 0 Регистрация: 07.06.2011 Сообщений: 36
		1
	Все числа заменить их квадратами 22.12.2011, 12:44. Показов 1215. Ответов 1 Метки нет (Все метки) даны целые числа a,b,c. Если a<=b<=c, то все числа заменить их квадратами, если a>b>c, то каждое число заменить наибольшим из них, в противном случае сменить знак числа 0

	22.12.2011, 13:16

Все числа заменить их квадратами

Решение