К=1 L=0 M=1 N=1
к=1 L=1 M=0 N=1
к=0 L=1 M=0 N=0
4) 12
Ну если не ошибаюсь
1 бай т= 8 бит 2^32бит = 4294967296 бит /8 =536870912 байт /1024= 524288 КБ /1024=512 мб /1024 =0,5 гига
<span>var a,s:integer;
begin
write('a = ');
readln(a);
s:=(a div 10)+(a mod 10);
writeln('s = ',s);
end<span>.
Пример:
</span><span>a = 25
s = 7</span></span>
Var n,k : Integer;
Begin
Readln(n);
k:=0;
Repeat
If n mod 10 = 0 then k:=k+1;
n:=n div 10;
Until n<=0;
Writeln('В этом числе нулей: ',k);
end.