Загрузите Word. Наберите следующий текст : [1] Маша положила в портфель [2] Задачник по математике [3] Сам папин портфель весит 300 г. [4] еще и утюг, который весит 9 кг. [5] Собираясь на работу, папа положил в свой портфель бумаги, [6] (хотя это ему и не известно) его двухлетняя дочка [7] общий вес которых 2 кг 700 г. [8] Сколько килограмм принесет папа на работу, если [9] Задача № 15 [10] Григорий Остер Затем выполните следующие действия: а) сформируйте абзацы из фрагментов следующим образом: первый абзац – [2], второй – [10], третий – [9]; четвертый – [5], [7] и [3], пятый – [8], [6], [1], [4]. Затем цифры в скобках удалите. б) установите параметры страницы: левое и правое поле – 3 см, верхнее – 2 см, нижнее – 5 см; в) текст «Григорий Остер» – полужирный шрифт, размер 14, цвет зеленый; «Задача №» – подчеркивание; д) все цифры в тексте выделите полужирным шрифтом синего цвета; е) решите задачу и напечатайте ответ: шрифт – полужирный и подчеркнутый, размер – 18, цвет лиловый.
Ответы
Vara,b,c,d,x1,x2: real;
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
then writeln('Не квадратное уравнение!')
else begin
d:= sqr(b)-4*a*c;
if d < 0 then writeln('Нет корней')
else begin
x1:= (-b+sqrt(d))/2*a;
x2:= (-b-sqrt(d))/2*a;
writeln ('X1 =',x1,' X2 =',x2);
end;
end;
end.
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
then writeln('Не квадратное уравнение!')
else begin
d:= sqr(b)-4*a*c;
if d < 0 then writeln('Нет корней')
else begin
x1:= (-b+sqrt(d))/2*a;
x2:= (-b-sqrt(d))/2*a;
writeln ('X1 =',x1,' X2 =',x2);
end;
end;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
с информатикой с решенией
Автор: radatailless
Как решать дальше? Задание взято с учи .ру Нашла только где -49 А с 48 нигде нет
Автор: Александрович784
Сколько битов содержится в 1/2 килобайта?
Автор: petrowanastya202081
3. Найти сумму всех кратных 3 или 5 ниже 10. Заполните таблицу трассировки
Автор: rkorneev19061
В целях удовлетворения этих потребностей органы государственной власти и органы местного и регионального самоуправления создают информационные службы, системы, сети, базы и банки данных.
Порядок их создания, структура, права и обязанности определяются Кабинетом Министров Украины или другими органами государственной власти, а также органами местного и регионального самоуправления.