Var
a,b,c,d:real;
begin
write('Введите A=');read(a);
write('Введите B=');read(b);
write('Введите C=');read(c);
D:=sqr(b)-4*a*c;
if D<0 then begin
writeln('D=',D,' ', 'Нет корней');end;
if D=0 then begin
writeln('D=',D,' ', 'x1=', -b/(2*a));end;
if D>0 then begin
writeln('D=',D,' ','x1=',(-b-sqrt(d))/(2*a));
writeln('D=',D,' ','x2=',(-b+sqrt(d))/(2*a));
end;
end.

0 0

3 года назад

7. Мальчик зашифровал слово, заменив каждую букву ее порядковым номером в алфавите. В результате получилась запись: 222122111121

Svetoslav i K [13.8K]

Фуфайка ответ!11! 22 21 22 1 11 12 1

0 0

4 года назад

Прочитать ещё 2 ответа

Рассмотрите рисунок, на котором изображены равные отрезки. Укажите, как называется ошибка при восприятии длины данных отрезков.

rudick [7]

ИЛЛЮЗИЯ МЮЛЛЕРА-ЛАЙЕРА или ГЕОМЕТРИЧЕСКАЯ ИЛЛЮЗИЯ

0 0