Var
a,b,i:integer;
s:real;
begin
write('введите a: '); readln(a);
write('введите b: '); readln(b);
s:=0;
for i:=a to b do s:=s+i;
s:=s/(b-a+1);
write('Среднее арифметическое: ');
writeln(s:10:6);
end.
1.5 Кбайт = 1,5*1024 байт = 1,5*1024*8 бит
Память для одного символа = 1,5*1024*8 / 3072 = 4 бита
Мощность алфавита = 2^4 = 16 символов
#include <iostream>
<span>#include <iomanip>
</span><span>using namespace std;
</span>void strout(int n,int m,int d) {
<span> if (n>=1) if (d==1) strout(n-2,m,d);
</span><span> if (n<=m-2) if (d==2) strout(n+2,m,d);
</span><span> for (int i=0; i<(m-n)/2; i++) cout<<" ";
</span><span> for (int i=0; i<n; i++) cout<<n;
</span><span> for (int i=(m-n)/2+n; i<m; i++) cout<<" ";
</span><span> cout<<endl;
</span><span>}
</span>int main() {
<span> int n;
</span><span> cout<<"n = "; cin>>n;
</span><span> if (n%2==0) n--;
</span><span> strout(n,n,1);
</span><span> strout(1,n,2);
</span><span> cout<<endl;
</span><span> system("pause");
</span><span> return 0;
</span><span>}
</span>n = 7
<span> 1
</span><span> 333
</span><span> 55555
</span><span>7777777
</span><span>7777777
</span><span> 55555
</span><span> 333
</span><span> 1
</span>
Program _massiv;
var A:array[1..50] of real;
i,c:integer;
begin
writeln('Задайте количество членов линейного массива');
readln(c);
for i:=1 to c do begin
writeln('Введите',' ',i,' элемент массива');
readln(A[i]);
end;
for i:=1 to c do
writeln('Элемент массива ',i,' равен ',a[i]);
for i:=1 to c do
if A[i]=7.5 then writeln('Номер элемента массива, равный 7.5 ',i)
end.<span> </span>
С. здесь ошибка. не может быть такого "\%d"