Var n,count:longint;
begin read(n);
count:=0;
repeat n:=n div 10;
inc(count);
until n=0;
writeln(count);
<span>end.</span>
Var
a,i,k:integer;
begin
readln(a);
while a<>0 do begin
if a mod 2=0 then
k:=k+1;
a:=a div 2;
end;
writeln(k);
<span>end.</span>
6 горшков по 8л и 3 горшка по 4л
6*8=48
3*4=12
48+12=60
Компьютер как система – это система, включающая подсистемы аппаратного обеспечения и информационных ресурсов. ПК - подсистемы системы «человек компьютер». Средства обеспечивающие взаимосвязь между объектами этой системы, называется интерфейсом.
(1г /\ Пс) --> 3c = не(1г /\ Пс) \/ 3c = не(1г) \/ не(Пс) \/ 3г = 1с \/ Пг \/ 3г
1с: <span>Марс
Пг: </span><span>Облако
3г: </span><span>Энот
Ответ: </span><span>Экран.
На проверку?!?</span>