Program qq;;
var S:array[1..8] of integer;
i, SA, sum, k:integer;
begin
for i:=1 to N do readln(S[i]);
sum=0; k:=0; SA:=0;
for i:=0 to 8 do begin
sum:=sum+A[i];
k:=k+1;
end;
SA:=s/k;
if (S[i]>SA) then writeln(S[i]);
<span>end.</span>
<span>var k,r,h:integer;
begin
writeln('1 - длина окружности; 2 - площадь круга; 3 - объём цилиндра');
write('k = ');
readln(k);
case k of
1,2: begin write('R = '); readln(r); end;
3: begin write('R, h: '); readln(r,h); end;
end;
case k of
1: writeln('C = ',2*pi*r:5:3);
2: writeln('S = ',pi*r*r:5:3);
3: writeln('V = ',pi*r*r*h);
else writeln('Ошибка ввода');
end;
end<span>.
Пример:
</span><span>1 - длина окружности; 2 - площадь круга; 3 - объём цилиндра
k = 2
R = 5
S = 78.540</span></span>
<span>все очень легко;)
внутри проверка (i mod 3 =0) and (i mod 10 = 2) и суммируй</span>
1 операция - 5 · 2 = 10
2 операция - x + 10
3 операция - 2 · x
4 операция - (2 · x) - 3
5 операция - ((2 · x) - 3) · 2
6 операция - x + 10 - (((2 · x) - 3) · 2)
7 операция - (x + 10 - (((2 · x) - 3) · 2)) / 5
<h2>Итого</h2>
7 операций