Даны четыре вещественных числа, возведите в третью степень большее из них, и в четвертую - остальные

Мила Медведева · Регистрация: 12.10.2015

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

Даны четыре вещественных числа, возведите в третью степень большее из них, и в четвертую - остальные.

@Cyborg Drone · 18.10.2015, 17:57

Pascal

var x: array [1..4] of double;
    i, imax: integer;
begin
  imax := 1;
  for i := 1 to 4 do
    begin
      write('x', i, ' = ');
      readln(x[i]);
      if x[i] > x[imax] then imax := i
    end;
  writeln('Result:');
  for i := 1 to 4 do
    begin
      if i <> imax
        then x[i] := sqr(sqr(x[i]))
        else x[i] := x[i] * sqr(x[i]);
      writeln('x', i, ' = ', x[i])
    end;
  readln
end.

Мила Медведева 0 / 0 / 0 Регистрация: 12.10.2015 Сообщений: 10
		1
	Даны четыре вещественных числа, возведите в третью степень большее из них, и в четвертую - остальные 15.10.2015, 17:19. Показов 1286. Ответов 1 Метки нет (Все метки) Даны четыре вещественных числа, возведите в третью степень большее из них, и в четвертую - остальные. 0

	18.10.2015, 17:57

Даны четыре вещественных числа, возведите в третью степень большее из них, и в четвертую - остальные

Решение