мусс медовый
<span>1.Яичные желтки растереть с медом.</span>
<span>2.Добавить 50 г. меда и размешивать</span>
<span>3.если получилась густая однородная масса, то переход на 4 пункт, иначе на 2 пункт.</span>
<span>4.П<span>оставить ее на слабый огонь и, непрерывно помешивая, довести до густоты меда. 5.Затем снять с огня и охладить.</span></span>
<span><span>Цикл получается в 2,3 пункте</span></span>
VB.
Dim n As Integer
n = InputBox("Введите число:")<span>
MsgBox("В числе " & Len(CStr(n)) & " цифр.")
Pascal.
</span><span>Program N;
Var
I, S, N : Longint;
Begin
Writeln('Введите число'); Readln(I);
N:=1;
While I > 10 DO
BEGIN
I:=I DIV 10;
Inc(N);
end;
// c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
Write('</span>"В числе цифр "<span> = ',N);
Readln; end.
</span>
<em>Помог? Жми <u>Лучший!</u></em>
Для того что бы одним набором символов можно было писать на любом языке.
В старых кодировках ASCII И ANSI буквы отличные от латинских кодировались по разным правилам, замещая символы псевдографики, из-за малого размера таблицы (всего 256 знаков). Причем, эти кодировки несовместимы.
Юникод же позволяет закодировать до 2 147 483 648 символов.
program n5;
uses crt;
var a,b,c,d,x:integer;
begin
read (a,b,c,d);
if (b=0) and (a<>0)then write('solution');
if (b<>0) and (a=0)then write('нет корней');
if (b<>0) and (a<>0) and (b mod a=0) then write (-b div a);
readln;
end.