Оформление текста в MS Word Как добавить специальные символы?
Что такое абзац для Word?
Какие параметры для абзаца могут форматироваться и как ?
Как изменить у абзаца размер отступа?
Как задать границы к абзацу?
Как получить информацию о параметрах формата абзаца?
Как разделить абзац на два? Соединить?
Как при вводе текста перейти на новую строку того же абзаца?
Как обрамить текст, абзац, используя команды меню?
Как сделать заливку текста или абзаца, используя панель инструментов?
Как сделать заливку текста или абзаца, используя команды меню?
Каким образом можно начать новую страницу, используя команду меню?
Каким образом можно начать новую страницу, используя клавиатуру?
Как задать рисунок для границы страницы?
Как можно вставить рисунок горизонтальной линии?
{
if (tnum < tden)
{
temp = tnum;
tnum = tden;
tden = temp;
}
tnum = tnum - tden;
}
gcd = tden; //вычисляем наибольший общий делитель
numerator = numerator / gcd; //делим числитель и знаменатель на
НОД, получаем сокращенную дробь
denominator = denominator / gcd;
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.