Var D,L,R,S:real;
Const Pi=3.14;
Begin
randomize();
S:=random(11)+10;
R:=sqrt( S/Pi );
L:=Pi*2*R;
D:=L/Pi;
Writeln('L = ',L);
Writeln('D = ',D)
<span>End.</span>
Скажите пожалуйста, какой вам нужен паскаль. Сразу же - я пишу на delphi
Ответ:
1) 35
У нас написано, что s:=0
От k= 14 до 18 прибавляем каждый раз +7
s 7 14 21 28 35
k 14 15 16 17 18
2) 132
Тут такая же схема s:=0
От k=1 до 11 прибавляем к s +12
s 12 24 36 48 60 72 84 96 108 120 132
k 1 2 3 4 5 6 7 8 9 10 11
3) 45
Тут s=100
От k=0 до 10 мы отнимаем от s -5
s 95 90 85 80 75 70 65 60 55 50 45
k 1 2 3 4 5 6 7 8 9 10