Const n=20;
var a: Array [1..n] of integer;
i,j,m,d,dm: Integer;
begin
for i:=1 to n do
a[i]:=random(100);
writeln (a);
for i:=1 to n do
begin
d:=0;
for j:=1 to a[i] do
if a[i] mod j = 0 then d:=d+1;
if d>dm then
begin
dm:=d;
m:=i
end
end;
writeln (m)
end.
Вопрос вполне по предмету: моделирование экономических процессов делается как раз с помощью языков программирования.
А вот если препод вымогает деньги - то можешь пожаловаться.
1. 0,25
2. 26214,4
3. 9830,4
4. 65536
5. 131072
6. 8192
7. 3
8. 0,0625
9. 262144
10. 491,52
11. 286,72
12. 15
Var
a,p,s:real;
begin
Write('Введите площадь квадрата: ');
Readln(s);
a:=sqrt(s);
p:=4*a;
Writeln('Периметр квадрата равен ',p)
end.
Тестовое решение:
Введите площадь квадрата: 13.7
Периметр квадрата равен 14.8054044186574