Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, n, s, k : integer;
a : array [1..20] of integer;
begin
write('введите n=');
readln(n)
writeln('введите элементы массива а: ' );
for i: =1 to n do
readln(a[i]);
s: =0;
k: =0;
if a[i] mod 8 = 0 then begin s: =s+a[i]; k: =1 end;
if k=0 then write ('элементов кратных 8 - нет')
else write('сумма элементов кратных 8 =', s);
readln
end.
ну, в первом тексте информационный объем одного символа составляет
n=2^i
32=2^5
i=5 бит
во втором текте
64=2^6
i=6
значит, в 1,2 раза (6: 5=1,2)
попробуйте так (turbo pascal):
program 1;
var s: string;
c: integer;
write('vvedite nazvaniye zhivotnogo');
read(s);
writeln('vvedite kolichestvo syedennyh gribov');
readln(c);
writeln(s, ' ', 'syest', ' ', c, ' ', 'gribov');
var s,x,n,i: integer;
read(x,n);
s: =1;
for i: = 1 to n do
s: =s*x;
writeln(s);
Популярные вопросы