>>количества четных отрицательных чисел от -15 до 40
Очевидно, что ежели чётных отрицательных, то имеет смысл лишь от -15 до 0.
var counter, sigma : integer;
begin
counter := -15
sigma := 0;
while counter < 0 do
if (counter mod 2) = 0
then sigma += 1;
counter += 1;
writeln(sigma);
readln()
end.
1) 1000/1024=0,97 кб 1000 байт < 1 кб
2)220/1024=0,214 Кб 1/2 кб = 512 кб 220 < 1/2
3)1 мб = 1024 кб 1 < 1500
4)8192/8/1024 = 1 кб 1=1
Var a:array [1..8,1..8] of integer;
j,k,n:integer;
begin
randomize;
for j:=1 to 8 do
begin
for k:=1 to 8 do
begin
a[j,k]:=random(9)+1;
write (a[j,k]:2);
end;
writeln;
end;
repeat
write ('N = ');
readln (n);
until n in [1..8];
for j:=1 to 8 do write (a[n,j]:3);
writeln;
readln;
end.
4, т.к. это единственное, что размещается на процессоре и имеет более быстрый доступ, чем ОЗУ