В двоичной системе получается 1100100
Ответ: 3
Var
a:array[1..1000]of integer;
i,n,k,c,q:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if (a[i] mod 10 = 4) then
begin
k:=a[i];
c:=0;
while k>0 do
begin
c:=c + k mod 10;
k:= k div 10;
end;
if c mod 3 = 0 then
q:=q+1;
end;
end;
writeln(q);
end.
Var
s1,s2,s3,s4: String;
begin
s1:='дуб';
s2:='робот';
s3:= 'лак';
s4:=''+s1[2]+s2[1]+s2[2]+s3[3];
Writeln(s4);
end.
Word 7?
на вкладке "Анимация" ставишь галочку на "Автоматически после:" ...и вводишь сколько тебе надо секунд...
...затем на вкладке "Показ слайдов" самая первая кнопка слева - "показ слайдов с начала" нажимаешь - и вперед...)))
... еще на вкладке "Показ слайдов" --- "Настройка демонстрации" откроется окошко... в нем поставить : смена слайдов <u>по времени</u>