ax² + bx = 0
Для начала преобразуем уравнение:
x * (ax + b) = 0
Здесь два множителя, каждый может быть равен нулю:
x = 0 -первый корень (он всегда равен нулю)
или
ax + b = 0
ax = -b
x = -b / a -второй корень
Отсюда, программа выглядит так:
алг
нач
вещ a,b
вывод "решение уравнения ax^2 + bx = 0", нс
вывод "введите a: "
ввод a
вывод "введите b: "
ввод b
вывод "x1 = 0", нс
вывод "x2 = ", -b/a
кон
1)
8×10^4+7×10^3+6×10^2+5×10^1+4×10^0
11×16^3+12×16^2+13×16+3
7×8^4+5×8^3+3×8^2+1×8+1×8^0
2^4+2^2+2^1
2)
3586 (10)=2048+1024+512+2=111 000 000 010(2)=7002(8)=D02(16)
11257 (10)=8192+2048+1024+2+1=010 110 000 000 011(2)=25003(8)=2C03(16)
328(10)=256+64+8=101 001 000(2)=510(8)=148 (16)
512 (10)=001 000 000 000(2)=1000 (8)=200(16)
С. здесь ошибка. не может быть такого "\%d"
Var a: array [1..10] of real;
begin
writeln('Введите 10 натуральных чисел');
for i:=1 to 10 do read(a[i]);
for i:=1 to 10 do
if a[i] > 0 then writeln(a[i])
end.
Программа просит пользователя ввести 10 натуральных чисел. Для этого используется оператор read в первом цикле.
Во втором цикле проверяется каждое из 10 чисел. Если оно положительное, т.е. больше 0, оно выводится на экран. Затем программа завершает работу.