Var InFile, OutFile: text; // Вводной и выводной файлы
Var a,b,c, D, Result : Integer;
Assign(InFile, "C:\kvur.txt");
Assign(OutFile, "C:\korni.txt")
Reset(InFile)
Read(InFile,a)
Read(InFile,b)
Read(InFile, c)
D = sqr(b) + 4*a*c
if D = 0 then
Write("Уравнение не имеет корней")
Else
Append(OutFile)
Result:=(-b + sqrt(D)) / 2 * a
Write(OutFile,Result)
Write("Корень уравнения")
WriteLn(Result)
if (D>0) then
Result:=(-b - sqrt(D)) / 2 * a
Write(OutFile, Result)
Write("Второй корень уравнения")
Write(Result)
End;
End.
Количество пикселей = 10*10 = 100 пикселей.
Количество вариаций = 2^i, имеется 32 градации, 32 = 2^i, i = 5. 5 бит весит один пиксель.
Общий вес = кол-во пикселей * вес одного = 100 * 5 = 500 бит.
M:= 0.85
c:= 23.4
For i:= 1 to 10 do
Begin
a:= m*(I*5) + c;
WriteLn(a);
End;
А интересно что делать - то?
Шестая задача(введёшь 15 тебе выведет)
var
i,x : integer;
begin
read(x);
for i := 10 to 99 do begin
if (i mod 10) + (i div 10) = x then
writeln(i);
end;
readln;
<span>end.</span>