<em><u>Где варианты ответа? </u></em>
<em><u>Ну, а если логически, то нельзя играть в компьютерные игры. </u></em>
Блок-схема - в прилагаемом файле.
var r:integer; s:real;
begin
s:=0;
for r:=59 downto 30 do
s:=s+4*pi*r*r;
writeln('s = ',s:10:3);
end.
Результат:
<span>s = 774779.580</span>
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,0,100); a.Println;
Writeln(a.Where(x->x<50).Average)
end.
<u>Пример</u>
59 31 97 34 33 2 64 84 79 37
27.4
............................