Вычислить площадь и периметр прямоугольника

25.02.2014, 16:53. **Показов** 1677. **Ответов** 1

Даны 2 стороны прямоугольника. Вычислить площадь и периметр. Из получившихся элементов сформировать массив, в котором элементы будут выстроены в порядке убывания.

@FedorBoom · 25.02.2014, 17:35

Pascal

var arr: array [1..2] of integer;
    a, b, s, p, i: integer;
 begin
  readln(a,b);
  s:= a*b;
  p:= 2*a + 2*b;
  if s>p then
   begin
    arr[1]:= s;
    arr[2]:= p;
   end
  else
   begin
    arr[1]:= p;
    arr[2]:= s;
   end;
  for i:= 1 to 2 do write(arr[i], ' ');
  writeln;
  readln;
 end.

everlast1910
		1
	Вычислить площадь и периметр прямоугольника 25.02.2014, 16:53. Показов 1677. Ответов 1 Метки нет (Все метки) Даны 2 стороны прямоугольника. Вычислить площадь и периметр. Из получившихся элементов сформировать массив, в котором элементы будут выстроены в порядке убывания.

Опции темы

Вычислить площадь и периметр прямоугольника

Решение