В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
ynal2001
ynal2001
20.11.2021 17:10 •  Информатика

с решением. Вообще не шарю в информатике.
Вместо *** вам необходимо восстановить HTML – код.

HTML // определяет тип документа как web страницу

HEAD // определяет начало и конец заголовка документа

TITLE … TITLE // определяет имя всего документа (название вкладки)

BODY background="…" // BODY указывает начало и конец тела HTML-документа, все HTML-элементы, отвечающие за отображение документа, управление им и гипертекстовые ссылки содержатся внутри данного тега; background задает цвет фона страницы.

h1 …="center" Иванов Иван Иванович h1 // расположение ФИО на сайте по центу, цвет текста – красный, h1 - тег заголовка, который создает самый крупный заголовок, цифра 1 может меняться в пределах от 1 до 6. Шесть будет самый мелкий заголовок.

hr // вставляет в текст горизонтальную разделительную линию

… src="…" align="right" // вставляет изображение на страницу, форматирует положение на странице

p align="center" // выравнивает текст по центру

A …="index1.htm" Моя биография A // создает гиперссылку на другую страницу сайта

…F="index2.htm" Хобби

…="index3.htm" Фотоальбом …

P align="left" // р используется для разметки параграфов, выравнивает текст по левому краю

Показать ответ
Ответ:
Popopoghdhz
Popopoghdhz
11.05.2021 17:29

1)

var

 a,i,count:integer;

begin

 readln(a);

 count:=0;

 for i:=1 to a do  

   begin

     readln(a);

     if a mod 13 = 0 then

       inc(count);

   end;

 writeln('Count: ',count);

end.

2)

var

 a,i,max:integer;

begin

 readln(a);

 for i:=1 to a do  

   begin

     repeat

       readln(a);

       if a>100 then

         writeln('Error.Repeat');

     until a<=100;

     if i = 1 then

       max:=a

         else

           if max < a then

             max:=a;

   end;

 writeln('Max: ',max);

end.

0,0(0 оценок)
Ответ:
AnastasiaKT
AnastasiaKT
29.09.2022 14:32
Задание 1:

ответ: 150

a = ((35 - 5) / 6) * (28 + ((35 - 5)/6) -3) = 5 * (25 + 5) = 150Задание 2:

ответ: a=9, b=86

b = ((7 * 11 + 4) div 10) + 6 = (81 div 10) + 6 = 86a = (86 mod 10) + 3 = 6 + 3 = 9Задание 3:

ответ: 12

a = 15 - 6 * 2 = 33>15 ? нет => c = 15 - 3 = 12Задание 4:

ответ: 173

for k:=7 to 14 do  s:=s+2*ks = 5 + 2*(7+8+9+10+11+12+13+14) = 173Задание 5А:НачалоВвод a, ba>b ?если да, то Вывод b*2если нет, то Вывод a*2КонецЗадание 5Б:var a, b: integer;begin    readln(a,b);    if a>b then writeln(b*2) else writeln(a*2);end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота