Определить площадь 30 прямоугольников

@zasypon · Регистрация: 14.03.2018

Определить площадь 30 прямоугольников. Сторона a первого равна 4 см, а сторона b 7 см. Сторона каждого следующего увеличивается на 1 см.

@Puporev · 19.06.2018, 18:08

Pascal

uses crt;
var a,b,s,i:integer;
begin
clrscr;
a:=3;
b:=6;
for i:=1 to 30 do
 begin
  inc(a);
  inc(b);
  s:=a*b;
  write(s:5);
 end;
readln
end.

@JuriiMW · 20.06.2018, 08:19

Puporev, наверное нужна просто общая площадь?

Pascal

var s, i : Integer;
begin
  s := 0;
  for i := 0 to 29 do inc(s, (4+i)*(7+i));
  WriteLn(s);
end.

@zasypon 0 / 0 / 0 Регистрация: 14.03.2018 Сообщений: 22
		1
	Определить площадь 30 прямоугольников 19.06.2018, 17:52. Показов 1100. Ответов 2 Метки нет (Все метки) Определить площадь 30 прямоугольников. Сторона a первого равна 4 см, а сторона b 7 см. Сторона каждого следующего увеличивается на 1 см. 0

	20.06.2018, 08:19

Опции темы

Решение