Если сумма трёх различных чисел А,В,С равна 2,то наибольшее из этих чисел заменить наименьшим,если сумма больше 20,то все числа возвести в квадрат,в противном случае наибольшее из этих трёх чисел заменить числом 34
Категория: Delphi/Pascal
2012-01-03 22:21:07
code: #pascal
uses crt; var a: array[1..100] of integer; i, j, t, d: integer; begin for i := 1 to 3 do begin read(a[i]); end; for i := (3 - 1) downto 1 do for j := 1 to i do begin if (a[j] > a[j + 1]) then begin t := a[j]; a[j] := a[j + 1]; a[j + 1] := t; end; end; d := a[1] + a[2] + a[3]; if (d = 20) then begin a[3] := a[1]; end else if (d > 20) then begin a[1] := sqr(a[1]); a[2] := sqr(a[2]); a[3] := sqr(a[3]); end else begin a[3] := 34; end; for i := 1 to 3 do begin write(a[i], ' '); end; readln; readln; end.
автор: DUMMY
Поделиться: