Информатика 9 класс Паскаль Задачи на использование цикла ПОКА Начальный вклад в банке равен 1000 руб. Через каждый месяц размер вклада увеличивается на 5% от имеющейся суммы. Определить, через сколько месяцев размер вклада превысит 7000 руб.​

var

sum:real;

i:integer;

begin

sum:=1000;

i:=0;

while sum<=7000 do

   begin

   sum:= sum + sum/100*5;

   i:= i+1;

end;

writeln(i);

end.

Объяснение:

Зависит от того что за четырёхугольник
Если это квадрат то

Пример на Pascal
 
var a,S:real;{a- сторона четырёхугольника}
begin
 readln(a);
 S:=a*a;
write('Площадь равна: ',S);
end.

Если это прямоугольник то
var a,b,S:real;{a,b- стороны четырёхугольника}
begin
readln(a,b);
 S:=a*b;
write('Площадь равна: ',S);
end.
Если же четырёхугольник произвольный то

var d1,d2,alfa,S:real;{d1 и d2 диагонали alfa острый угол между ними}
begin
readln(d1,d2,alfa);
 S:=(d1*d2*sin(alfa))/2;
write('Площадь равна: ',S);
end.

На C++

PsyhoAssasin 43 секунды тому Если это квадрат
#include<iostream.h>
int main()
{
double a,S; // a- сторона четырёхугольника
cin>>a;
S=a*a;
cout<<"Площадь равна:"<<S;
return 0;
}

Если это прямоугольник то
#include<iostream.h>
int main()
{
double a,b,S; // a,b- стороны четырёхугольника
cin>>a;
cin>>b;
S=a*b;
cout<<"Площадь равна:"<<S;
return 0;
}

Если же четырёхугольник произвольный то
#include<iostream.h>
#include<math.h>
int main()
{
double d1,d2,alfa,S;
cin>>d1;
cin>>d2;
cin>>alfa;
S=(d1*d2*sin(alfa))/2;
cout<<"Площадь равна:"<<S;
return 0;
}

Для всех подобных задач решение однотипное, по индексам i,j в массиве определяется что вписать в ячейку
в первом все просто все заполняем 5
#include <stdio.h>
int main(void)
{
 int i,j num[5][5];
/* загрузка чисел */
 for(i=0; i<5; i++)
 for (j=0; j<5; j++)
 num[i][j] = 5;

/* вывод чисел */
 for(i=0; i<5; i++)
{
 for (j=0; j<5; j++)
  printf("%d ",num[i][j]);
  printf ("\n");
}
return 0;
}
во втором чуть сложнее, если сумма индексов i+j меньше размера массива, то пишем 1, в противном случае 0, 
инициализация и вывод без изменений их не пишу
 for(i=0; i<5; i++)
 for (j=0; j<5; j++)
   if (i+j<5) num[i][j]=1;
   else num[i][j]=0;