3. Уточните, каков каков объём опера к которому вы имеете доступ страниц текста можно размести тера - id2108206220210429 от DillonVIP 29.04.2021 15:05

Question

Информатика: 3. Уточните, каков каков объём опера к которому вы имеете доступ страниц текста можно размести тера (на странице размещается каждой строке, а для хранени , 8 бит)? Какой была бы высота высота стопки из 100 страниц

DillonVIP · Accepted Answer

1.  var  n,i,k,sum,g:integer; begin readln(n); g:=n; while n 0 do begin  g:= g div 10;  k +=1; end; for i:=1 to k do begin g:= n mod 10; sum:= sum + g; n:=n div 10; end; if sum 10 then writeln( верно ) else ( неверно ); end. 2. var  n,i,k,p,h,g:integer; begin readln(n); g:=n; while n 0 do begin  g:= g div 10;  k +=1; end; p:=n mod 10; n:=n div 10; for i:=1 to k-1do begin g:= n mod 10; if g = p then  h += 1; n:=n div 10; end; writeln(h); end. 3. const n=10; var a:array[1..n]of integer; i,sum:integer;...

MOGZ ответил