//Pascal ABC.NET 3.1 сборка 1219
Var
a:integer;
begin
readln(a);
while (a<=1000) do
a:=a+10;
writeln(a);
end.
Пример ввода:
567
Пример вывода:
1007
Var a,b,c:real;s,v:real;beginreadln(a,b,c);v:=a*b*c;s:=2*(a*b+a*c+b*c);writeln(v);writeln(s);end.<span>
</span>
а)-log2(3/4) = -log2 3 + log2 4 = <span>1,586 - 2 = 0,414 бит</span>
Как сварить сосиски:
1) включить плиту;
2) поставить на нее кастрюлю с водой;
3)подождать пока вода закипит;
4)опустить сосиски в воду.
5) подождать 2-3 минуты;
6)вытащить сосиски;
7)плиту выключить , воду вылить.
0,041696 1 мб 1000кб . 1000мб 1гб