Var a,b:longint; function sum (n:integer):integer; var s:integer; begin s:=0; while (n<>0) do begin s:=s+n mod 10; n:=n div 10; end; sum:=s; end; begin write ('A = '); readln (a); write ('B = '); readln (b); if sum(a) > sum(b) then writeln ('Сумма цифр 1ого числа больше на ',sum(a)-sum(b)) else if sum(b) > sum (a) then writeln ('Cумма цифр 2ого числа больше на ',sum(b)-sum(a)) else writeln ('Сумма цифр 1ого числа равна сумме цифр 2ого числа'); readln; end.
function sum (n:integer):integer;
var s:integer;
begin
s:=0;
while (n<>0) do
begin
s:=s+n mod 10;
n:=n div 10;
end;
sum:=s;
end;
begin
write ('A = ');
readln (a);
write ('B = ');
readln (b);
if sum(a) > sum(b) then
writeln ('Сумма цифр 1ого числа больше на ',sum(a)-sum(b))
else if sum(b) > sum (a) then
writeln ('Cумма цифр 2ого числа больше на ',sum(b)-sum(a))
else writeln ('Сумма цифр 1ого числа равна сумме цифр 2ого числа');
readln;
end.
В одну папку со своими страницами поместите файлы 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>