Так на пример чтоб совершить какой либо алгоритм ты его предстовояешь сегодня сделал много алгоритмов например с утра что ты делаешь 1. открываешь глоза 2.встаешь 3.одеваешь тапочки 4.встоешь с кровати 5.запровляешь кровать 6.идёшь в вану 7.принимаешь душ 8.чистиш зубы 9.вытираешься 10.одеваешься 11.идеш на кухню 12.береш чайник 13.идёшь к воде 14.включаешь воду 15.подстовляешь чайник 16.ждешь пока набирается вода 17.выключаешь воду 18.идеш к плите 19. ставишь чайник 20.зажигаешь спичку 21.включаешь газ 22.подносишь спичку 23.ждешь воду и т.д )
a, b, c, d: real;
begin
write('Введите коэффициенты a,b,c ');
readln(a, b, c);
d := sqr(b) - 4 * a * c;
if d = 0 then
writeln('Корень один x = ', (-b / (2 * a))
else if d >0 then
writeln('x1 = ',(-b + sqrt(d)) / (2 * a), ' x2 = ',(-b - sqrt(d)) / (2 * a))
else writeln('Действительных корней нет');
end.
Тест №1
Введите коэффициенты a,b,c 1 -5 6
x1 = 3 x2 = 2
Тест №2
Введите коэффициенты a,b,c 1 2 3
Действительных корней нет
Тест №3
Введите коэффициенты a,b,c 1 0 0
Корень один x = 0