// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 function FS(a,b:real):=0.5*a*b; begin var a,b:real; Write('Катеты первого треугольника: '); Read(a,b); var S1:=FS(a,b); Write('Катеты второго треугольника: '); Read(a,b); var S2:=FS(a,b); if S1>S2 then Writeln('Площадь первого треугольника больше') else if S1<S2 then Writeln('Площадь второго треугольника больше') else Writeln('Площади треугольников равны') end.
Тестовое решение Катеты первого треугольника: 4.18 6 Катеты второго треугольника: 5.4 3.9 Площадь первого треугольника больше
В одну папку со своими страницами поместите файлы glavnaya.txt и wallpaper.jpg (фон).
При этом файл с таблицей переименуйте на 'таблиця.html', файл с планами - на 'плани.html', а файл с определениями - на 'означення.html'.
И смените расширение glavnaya.txt на glavnaya.html.
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8">
<title>Головна сторінка</title>
<style>
body {
/*устанавливаем фон страницы*/
background-image: url('wallpaper.jpg');
background-size: cover;
/*устанавливаем шрифт*/
font-family: Arial;
}
li {
/*увеличиваем размер шрифта*/
font-size: 25px;
}
</style>
</head>
<body>
<h1 align="center">Усі сторінки. Оксенчук Саша</h1>
<ul>
<li>Моя таблиця розміщена <a href="таблиця.html">тут</a>.</li>
<li>Мої плани розміщені <a href="плани.html">тут</a>.</li>
<li>Означення розміщені <a href="означення.html">тут</a>.</li>
</ul>
</body>
</html>
function FS(a,b:real):=0.5*a*b;
begin
var a,b:real;
Write('Катеты первого треугольника: '); Read(a,b);
var S1:=FS(a,b);
Write('Катеты второго треугольника: '); Read(a,b);
var S2:=FS(a,b);
if S1>S2 then Writeln('Площадь первого треугольника больше')
else
if S1<S2 then Writeln('Площадь второго треугольника больше')
else Writeln('Площади треугольников равны')
end.
Тестовое решение
Катеты первого треугольника: 4.18 6
Катеты второго треугольника: 5.4 3.9
Площадь первого треугольника больше