animetan200
23.08.2020 11:25

Создайте многостраничный сайт с гиперссылками по одной из следующих тем:

1. Мои увлечения

2. Экология

3. Компьютерные технологии

4. Мой любимый предмет в школе

5. Мне нравятся профессии

Критерии структуры сайта:

Не менее 5 веб страниц с гиперссылками (1 страница - основная, в которой есть меню с переходами(гиперссылки) на все другие, все страницы должны содержать переходы на 1 страницу, не менее 2 страниц должны иметь переходы между собой(кроме первой)) ( )
На каждой странице должна быть минимум 1 картинка ( )
1 страница должна содержать таблицу с информацией (не менее 5 строк и 3 столбцов) ( )
Оформление CSS( на каждой странице абзацы оформлены с выравнивание, размер, цвет текста на всех страницах разный, каждая страница имеет фон) ( )
Критерии содержания сайта:

Тема разбита на 4 части, заголовки каждой из которых присутствуют на 1 странице.( )
Раскрытие каждого раздела вашего сайта по содержанию ( )
Все картинки и таблица соответствуют разделу и теме ( )
Разделы содержат актуальную и интересную информацию по выбранной теме ( )
Оформление сайта (текст, картинки выровнены, заголовки отличаются от текста, контрастные цвета текста и фона сайта) ( )
Выполненную работу отправить в этом разделе - 1 архивным файлом с разрешением rar, zip или 7z (видио по работе с архивами находится в данном разделе видео не оценивается)

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Vad1mi4
28.09.2021 06:49
Program HappyNewYear;
Uses GraphABC;
Begin
SetWindowSize(600,400);
 line(250,100, 300,50);
lineto(350,100);
 lineto(250,100);
floodfill(300,70, clgreen);
line(220,200, 300,100);
lineto(380,200);
lineto(220,200);
floodfill(300,150, clgreen);
line(200,300, 300,200);
 lineto(400,300);
 lineto(200,300);
floodfill(300,250, clgreen);
rectangle(290, 300,310, 320);
floodfill(300,305, clbrown);
 line(0, 300, 100, 350);
lineto(200, 320);
lineto(400, 320);
lineto(600, 370);
lineto(600,400);
lineto(0,400);
lineto(0,300);
end.
0,0(0 оценок)
Ответ:
chelokoshka03
11.11.2021 13:56
//Знаю, что это решение далеко от понятия "изящество"
//Pascal ABC.NET v3.0 сборка 1111
var
 max1,max2,max3,i,maxi1,maxi2:integer;
 ar:array of integer;
begin
max1:=-2147483648;
max2:=-2147483648;
max3:=-2147483648;
setlength(ar,1);
readln(ar[0]);
i:=0;
 repeat
  inc(i);
  setlength(ar,i+1);
  readln(ar[i]);
 until ar[i]=0;
 for i:=0 to i do
 if ar[i]>max1 then
  begin;
   max1:=ar[i];
   maxi1:=i;
  end;
 for i:=0 to i do
 if (ar[i]>max2) and (i<>maxi1) then
  begin;
   max2:=ar[i];
   maxi2:=i;
  end;
 for i:=0 to i do
 if (ar[i]>max3) and (i<>maxi1) and (i<>maxi2) then max3:=ar[i];
write('Max1=',max1,' Max2=',max2,' Max3=', max3);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота