//длинная арифметика
begin
var a := '123456789123456789';//ReadString();
var b := '123456789123456789123';//...
var l := Abs(a.Length - b.Length);
var source := l*'0';
if a.Length > b.Length then
insert(source, b, 1)
else
insert(source, a, 1);
var s := '';
var mem := 0;
for var i:=a.Length downto 1 do
begin
var c := a[i].ToDigit + b[i].ToDigit + mem;
mem := c div 10;
insert((c mod 10).ToString, s, 1)
end;
if (mem > 0) then insert('1', s, 1);
s.Println;
end.
1. Сайт содержит 5 страниц (главная, 4 страницы без темы (полагаю, это уже Ваша работа), запустится, естественно, только у Вас на компьютере.
2. На каждой странице задан фон, цвет шрифта и размер шрифта. Вы можете менять эти параметры по своему усмотрению. О том, как это сделать, разъясню в комментариях, если будет такая необходимость.
2.1 На каждой странице содержатся гиперссылки (переход на следующую страницу, на предыдущую и возврат на главную страницу) и картинки. Картинки в примере называются "1.png", "2.png" и так далее. Найдете любые картинки по выбранной Вами теме и назовете их, как указано в html-разметке.
3. На главной странице сформирован список, содержащий ссылки на 4 страницы сайта.
Решение поставленной задачи приложено в виде текстового файла, содержащего разметку для 5 html-страниц. Нужно будет создать 5 текстовых файлов с блокнота и назвать их так, как указано в решении (не забыть изменить расширение на .html)
Загрузить text/html
