===== PascalABC.NET =====
begin
var x := 12.0;
while x <= 15.1 do
begin
var y := Sin(x) - x ** 2;
Writeln(x:4:1, y:16:9);
x += 0.2
end;
end.
<!DOCTYPE html>
<html>
<head>
<meta charset="UTF-8">
<title></title>
</head>
<body bgcolor=lightgrey>
<font color=red face="Arial"><h1 align=center>Иванов</h1>
<h2 align=center>Иван Иванович</h2>
</font>
<hr width=50%>
<a href="document2.html">На страницу 2</a>
</body>
</html>
---------------------------------------------------------------------------------------
<!DOCTYPE html>
<html>
<head>
<meta charset="UTF-8">
<title></title>
</head>
<body bgcolor=lightgrey>
<font color=blue face="Arial"><h1 align=center>Иванов</h1>
<h2 align=center>Иван Иванович</h2>
</font>
<hr width=50%>
<font face="Times New Roman">
<ul>
Список группы:
<li> Чел1
<li> Чел2
<li> Чел3
<li> Чел4
<li> Чел5
<li> Чел6
</ul>
<ul type=square>
Список отсутствующих:
<li> Чел1
<li> Чел2
<li> Чел3
</ul>
</body>
</html>
Var
d, a, b, c, x1, x2: real;
begin
writeln('Введите a, b, c');
readln(a, b, c);
d := b * b - 4 * a * c;
if d > 0 then
begin
x1 := (-b + sqrt(d)) / (2 * a);
x2 := (-b - sqrt(d)) / (2 * a);
writeln('x1 = ', x1:2:2);
writeln('x2 = ', x2:2:2);
end
else if d = 0 then
begin
x1 := -b / (2 * a);
writeln('x = ', x1:2:2);
end
else
writeln('Нет действительных корней');
end.