While n > 0 do begin
S := S + n mod 10;
n := n div 10;
<span>end;а</span>
<span>Существует несколько типов сетей, и локальная сеть - лишь одна из них. Локальная сеть представляет собой, по сути, сеть, используемую в одном здании или отдельном помещении, таком как квартира, для обеспечения взаимодействия используемых в них компьютеров и программ. Локальные сети, расположенные в разных зданиях, могут быть соединены между собой с помощью спутниковых каналов связи или волоконно-оптических сетей, что позволяет создать глобальную сеть, т.е. сеть, включающую в себя несколько локальных сетей.</span>
//PascalABC.Net;
//(c) NaaMan;
var
s, k : integer;
begin
k := 1;
for var i := 1000 to 9999 do begin
s := 0;
for var j := 0 to 3 do begin
s += (i div round(power(10, j)) mod 10)
end;
if (i mod s = 0) then begin
write(i, ' ');
if (k mod 4 = 0) then writeln;
k += 1
end
end
end.
1) 12 чего?
2) 81920 бит=<span>81920/8/1024=10 Кб
3) </span>8 Гб=8*1024*1024=8388608 Кб
4) <span>1.048.576. Кб=1048576/1024/1024=1 Гб
5) N=8
6) 2 бита
7) 1*8=8 байт
8) 1,44=1,44*1024*1024=</span>1509949,44 байт
1509949,44 /1800≈839 страниц
9)
10) одинаково
Uses crt;
var a=array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(50);
if (a[i]mod5=0) there
a[i]:=a[i]*2;
else
a[i]:=a[i]/2;
for i:=1 to 10 do
writeln(a[i]);
end.
