Program Project1;
var m:array of integer; res, n, i:integer;
begin
repeat
write('n: '); readln(n);
SetLength(m, Length(m)+1);
m[Length(m)-1]:=n;
until n=0;
res:=0;
for i:=1 to Length(m)-1 do
if m[i]<0 then res:=res+m[i];
writeln('Result:=', res);
readln;
end.
это, короче, решение диофантова уравнения: Ax - By = N
1. наливаем в A, переливаем в B, пока B не наполнится
2. выливаем из B
3. переливаем остаток из A в B
повторяем пункты 1-3, пока уровень в A или B не станет равным N
если решений нет, то НОД (A, B) не делит N нацело, так что алгоритм зацикливается.
32 символов можно закодировать 5 битами, так как 32=2^5, тоесть 1 символ = 5 бит.
В таком случае, 512 символов = 5 бита *512=2560 бита=2560/8 байта=<span>320</span><span> байта</span>
<span>Это мы не проходили,
Это нам не задавали</span>!
А квадратное уравнение решаемо =)
var a, b, c, d, x1, x2: real;
begin
readln(a, b, c);
d := b * b - 4 * a * c;
if d >= 0 then begin
if d <> 0 then begin
x1 := (-b + sqrt(d)) / 2 * a;
x2 := (-b - sqrt(d)) / 2 * a;
writeln('x1 = ', x1:4:2, ', x2 = ', x2:4:2)
end
else begin
x1 := -(b / 2 * a);
writeln('x = ', x1:4:2)
end
end
else begin
writeln('Нет решения');
end
end.
Удачи тебе с остальными)
Program data ;
Uses CRT;
var n:integer;
begin
ReadKey;
Writeln('3 июля');
<span>end.</span>