Const N = 40;
var
a:array[1..N] of integer;
i,j,s:integer;
st:real;
begin
for i:=1 to N do readln(a[i])
s:=0; st:=0;
for i:=1 to N do
if (a[i]>9)and(a[i]<100)and(a[i] mod 2=0) then
begin s:=s+1; st:=st+a[i];end;
if s>0 then writeln('Среднеарифметическое = ',st/s:4:1)
else writeln('Искомых чисел нет');
end.
Пример (для n=20):
<span>416
295
-848
-881
-325
-690
139
-220
992
607
-998
400
720
-536
757
-123
-559
-941
22
-748
Среднеарифметическое = 22.0</span>
B3: =СТЕПЕНЬ(А3;2) ⇒ 7^2 ⇒49
C3: =СУММ(А3:В3) ⇒ 7+49=56
D3: =ЕСЛИ(С3<60;МАКС(А3:С3);МИН(А3:С3)) ⇒ <span>МАКС(А3:С3) </span>⇒ 56
Код на С:
int main(){
int a,b;
double x;
scanf("%d %d", &a, &b);
if (b==0) { printf("Div by zero!"); getch(); return 1;} else{
x=a/b; printf("x = %.2F", x); getch();}
return 0;
}
библиотеки не писал, нужны stdio и conio
Объясню алгоритм:
считываем слово,
если это слово имеет чётную длину
если это слово палиндром
то ответ ложь
иначе ответ истина
Рисунок на 2,12,20,21,22,23,24,25,26,27,28,29,32.итого 13 рисунков.