Program z24; Var i:integer; n:longint;Begin write('Введите число - '); readln(n); i:= 0; while (n > 0) do begin n:= n div 10; i:= i + 1; end; writeln('Кол-во цифр в числе - ', i);End.
51:8=6
остаток 3
это получается 63 ( 8 вычис сист)
0 0 1 1 0 0 1 1
<em>Присваивание</em> - это действие в результате которого переменная величина получает определенное значение.
В бутылке минеральная вода. Сейчас стакан не стоит между чаем и молоком. Поставить стакан между бутылкой с минеральной водой и кружкой нельзя, так как тогда он будет стоять между минеральной водой, а должен стоять рядом с чаем и молоком. Значит, стакан можно поставить между кружкой и чашкой. Стакан оказывается в середине, значит, в нем кофе. Молоко не может быть в кружке, так как по соседству с молоком будет кофе и минеральная вода, а рядом с молоком должен быть квас. Значит, молоко в чашке. Так как по соседству с молоком должен быть квас, то в кувшине квас.
Ответ: в бутылке минеральная вода, в кружке чай, в чашке молоко, в стакане кофе, в кувшине квас.
Var a,b,c: integer;begin
a:=1;
while a<100 do
begin
c:=c+a;
a:=a+1;
end;
writeln(c);
<span>end.</span>