<span>системе счисления с основанием Р=2 это двоичная система счисления.
Каждый знак является либо единицей либо нулем.
Максимальное число из трех цифр будет
111 (2)
что составляет
2^2 + 2^1 + 2^0 = 4+2+1 = 7</span>
Как и сказал, смог только первый.
Для начала нужно ввести числа квадратного уравнения в строку. То есть, числа вместо a, b и c. А потом надо ввести в строку число "х", чтобы проверить его на наличие решения.
Вот сам код:
program name;
var a, b, c, d, x1, x2, x3: real;
begin
writeln('Введите коэффициенты квадратного уравнения') ;
readln(a, b, c);
d:=sqr(b) - (4*a*c);
x1:= (-b-sqrt(d)) / 2*a;
x2:= (-b+sqrt(d)) / 2*a;
Writeln('Введите число х, чтобы проверить, является ли оно корнем уравнения') ;
readln(x3);
If x3 = x1 then
Writeln('Число ', x3, ' является корнем уравнения.')
Else If x3 = x2 then
Writeln('Число ', x3, ' является корнем уравнения.')
Else
Writeln('Число ', x3, ' не является корнем уравнения.') ;
End.
Program DZ;
var a:real;
begin
read (a);
if a>1000 then
begin
a:=a-a/100*15;
write (a:0:3);
end
else write ('скидка не предоставляется');
end.
Const n=3;
var a: array[1..n] of integer;
i, j, k: integer;
begin
randomize;
write ('Исходный массив: ');
for i := 1 to n do begin
a[i] := random(256);
write (a[i]:4); end;
writeln; writeln;
for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] > a[j+1] then begin
k := a[j];
a[j] := a[j+1];
a[j+1] := k
end;
write ('массив по возрастанию: ');
for i := 1 to n do
write(а[i]:4);
writeln;
readln;
<span>end.
______________________________
</span>
<span>Символы, находящиеся справа от курса, удаляют с помощью клавиши Delete</span>