2048 символов. <span>1 МБ = 1024 Кбайт .</span><span>1/512 МБ = 2 Кбайта.
</span>
<span>Итак, 2 Кбайта = 2048 байт = 2048 символов. </span>
<span>Итого, 1 символ весит 1 байт. </span>
<span>В 1 байт можно вставить числа от 0 до 255, в алфавите 256 символов.</span>
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>
#include <iostream>
using namespace std;
int main(){
int sum=0, doz, dannyy;
cin >> doz;
for ( int i=0; (сюда условие);++i){
cin >> dannyy;
if(dannyy%7==0)
sum+=dannyy;
}
cout << sum;
return 0;
}
#include <iostream>
#include <cstdlib>
using namespace std;
int main()
{
int N, I, k, a;
I = 1;
k = 0;
cin >> N;
while (N >= I)
{
cin >> a;
if (a % 3 == 0 && (a % 10 == 4 || a%10==-4))
{
k++;
}
I++;
}
cout << k << endl;
system("pause");
return 0;
}
привел исправленные варианты программ(в 1 в цикле for укажи условие)
program name;
const
n:=15
var
i,a:array[1..n] of integer;
begin
for i:=1 to n do begin
random(a[i]);
writelm(a[i]);
end;
end.
Пол задания
64=2^i
i=6
n=57344*6=344064 бита=43008 байтов = 42 кб