Смотри полученные данные и саму гистограмму в прикреплённых картинках.
Program asd;
Var A,B:array [1..250,1..250] of integer;
i,j,n,m,k: integer;
BEGIN
Write('Введите n: '); Readln(n);
Write('Введите m: '); Readln(m);
for i:= 1 to n do
begin
for j:= 1 to m do
begin
A[i,j]:=random(10);
write(A[i,j]:3);
end;
writeln;
end;
writeln;
for i:= 1 to n do
for j:= 1 to m do
begin
If A[i,j] mod 2=1 then inc(k);
end;
If n=m then
begin
Writeln('Транспонирование: ');
for i:=1 to n do
begin
for j:=1 to m do
begin
write(A[j,i]:3);
B[i,j]:=A[i,j];
end;
writeln;
end; writeln;
end
else
Writeln('Кол-во нечетных элементов: ',k);
<span>END.</span>
Это лепестковая диаграмма, без вариантов.
но букв 11.
Если энциклопедия сохранена в юнекоде то там 1 символ равен 2 байтам. А у нас на странице символов на 13 килобайт.
1 килобайт равен 1024 байта.
13 килобайт равен 13312 байта.
13312 делим на 2 и получаем 6656 - это и есть наше количество символов на странице весом в 13 килобайт.
Program name;
var
a,b:integer;
begin
//Переменная B является сложным процентом за год
b:=0.24;
а:=10000*b;
a:=a+10000;
writeln('Остаток вклада за один год:',а);
а:=0;
b:=0,48;
a:=10000*b;
a:=a+10000;
writeln('Остаток за второй год:',a);
end.