1 гб= 1024 мб
2 гб = 2048 мб
2048 \ 3 = 682, 6
ответ а)
B = 2; d = 17
b<=15 ⇒ 2<=15 ⇒ true (истина) ⇒ b = b+d = 2+17 = 19
d = d+1 = 17+1 = 18
b = b+d = 19+18 = 37
Ответ: b=37
Var n: longint;
k: integer;
begin
k:=0;
write('Введите число: ');
readln(n);
while n>0 do
begin
if n mod 10 mod 2<>0 then
k:=k+1;
n:=n div 10;
end;
writeln('В числе ',k,' нечетных цифр');
readln;
<span>end.</span>