Const N=10;
var a:array [1..N] of integer;
i,sum:integer;
sr:real;
begin
sr:=0; sum:=0;
for i:=1 to N do
begin
a[i]:=random(10)+1;
sum:=sum+a[i];
end;
for i:=1 to N do
write(a[i]:3);
writeln;
sr:=sum/10;
writeln('Среднее значение элементов массива:',sr);
end.
3Кб=3*1024=3072байта
3Кб=3*1024*8=24576бита
Ответ:
1. Pascal
2. в настоящий момент: Embarcadero
3. Save All... (Shift + Ctrl + S)
4. File -> New
5. Первая создаваемая форма в проекте
меняется: Project -> Opion -> Forms
6. TForm.Caption
7. Project -> Opion -> Application: Load Icon
8. Show; Hide; Close;
9. TLabel
10. TEdit
11. TLabel.Caption
12. TLabel.Alignment
13. TLabel.Layout;
14. TMemo.Lines
15. s := '';
Delete (s: String, Index: Integer; Count: Integer)
Insert (Substr: string; Dest: string; Index: Integer);
16. PasteFromClipboard CopyToClipboard
17. TEDit.Text;
Нет возможности проверить, но думаю заработает:
#include <iostream>
#include <cmath>
using namespace std;
int main(){
double n, a, R;
cin >> n >> a >> R;
double b = a * n, r = a / (2 * tg(180 / n));
double S = ((n * b) / 2) * sqrt((R * R) / 4);
cout << S;
}
1. Толщина - изменяет толщину линий для заданного инструмента.
2. Фигуры - содержит готовые фигуры для вставки.