4 Гбайт = 4*1024*1024*1024 = 2^2 * 2^10 * 2^10 +2^10 = 2^32 байт
<span>2 Тбайт = 2 * 2^10 * 2^10 = 2^21 = 2097152 Мбайт
2^13 бита = 1 кб (т.к 1 кб занимает </span>8 192 бит, а 2^13 =<span>8 192)</span>
Program n;
uses crt;
var i:integer;
begin
for i:=-10 to 10 do writeln(i:4, abs(i):4);
<span>end. </span>
program test;
var number: integer;
begin
write('Enter the number: ');
readln(number);
if (number mod 2 = 0) then
writeln('Chislo ', number, ' chetnoe')
else
writeln('Chislo ', number, ' nechetnoe');
readln();
end.
1)program qq;
const N=(количество чисел в массиве);
var A:array[1..N] of integer;
i, S:integer;
begin
for i:=1 to N do readln(A[i]);
S=0;
for i:=0 to N do
if (A[i]>9) and (A[i]<100) and (A[i]mod2=0) then S:=S+A[i];
writeln(s);
<span>end.
2) </span>program qq1;
const N=(количество чисел в массиве);
var A:array[1..N] of integer;
i, k:integer;
begin
for i:=1 to N do readln(A[i]);
k:=0;
for i:=0 to N do
if (A[i]mod10=3) and (A[i]<100) and (A[i]>9) then k:=k+1;
writeln(k);
<span>end.</span>