Program Pr10;
var
i, j, s: integer;
begin
s := 0;
for i := 1 to 9 do
for j := 0 to 9 do
if (i + j <= 10) then
inc(s, i * 10 + j);
writeln(s);
end.
Вот решение:
- 1 байт - 8 бит
- 128 бит - 16 байт
- 1 КБ - 8192 бит
- 1,5 КБ - 1536 байт
- 2048 байт - 2 КБ
- 2 Мбайт - 2048 КБ
- 81920 бит - 10 КБ
- 1,5 Мбайт - 1572864 байт
Лови шпаргалку, может пригодится
var x: real;
function f(x: real): real;
begin
if x < 0 then f:= ln(x)/(1 - x)
else if (0 <= x) and (x < pi) then f:= 10
else if (pi <= x) then f:= cos(6 * x);
end;
begin
readln(x);
writeln(f(x));
end.
Информацию мы получаем по связи , по телефону от друзей,и из интерната
<span>В 6 заливаем литр. Потом отливаем из 6 два литра в двухлитровую. В 6 литровой остается 4 литра. Затем из 2 литровой переливаем в 5 литровую.</span>