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

сделать сайт по информатике!

Задание примерно такое: создать сайт через блокнот html. Я немного разбираюсь в этом, а оценка решает аттестат. Если можете, скиньте текстом ГЛАВНОЕ НУЖНО: Разработайте Web-страницы, рассказывающие о вашем образовательном учреждении. На головной странице поместите рассказ о нем, руководителе. Рассказы о преподавателях, лучших учениках разместите на отдельных Web-страницах. Разместите рассказ об истории вашего образовательного учреждения на отдельной Web-странице. Укажите ссылки на страницы преподавателей, учеников, истории учреждения с головной страницы. Не забудьте установить ссылки возврата с этих Web-страниц на головную страницу.

Показать ответ
Ответ:
marinka10k
marinka10k
14.03.2021 05:00
1.                                          

program raf105;

var

 sum: integer;

begin

 for var i:=1 to 100 do

   if i mod 2 = 0 then sum:= sum + i;

 writeln('Вывод: ',sum);

end.

2.                                          

program raf105;

var

 glas: string:= 'аяоёуюыиэе';

 input: string;

 glasCount: integer;

begin

 write('Введите слово: ');

 readln(input);

 lowerCase(input);

 for var i:= 1 to length(input) do

   for var j:= 1 to length(glas) do

     if input[i] = glas[j] then inc(glasCount);

 writeln('Гласных букв: ',glasCount);

end.

3.                                          

program raf105;

var

 count: integer;

begin

 for var i:=1 to 500 do

   if i mod 2 <> 0 then inc(count);

 writeln('Вывод: ',count);

end.

PascalABC
0,0(0 оценок)
Ответ:
Caflen
Caflen
27.06.2021 23:45
Обозначим количество кроликов r, количество кур - c.
Тогда 2c+4r=128; c+2r=64 → c=64-2r, r=0,1,2,...32

// PascalABC.NET 3.2, сборка 1431 от 28.04.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=Range(0,32).Select(r->(r,64-2*r));
  Write('(Кролики-куры):'); s.Println
end.

Результат:
(Кролики-куры):(0,64) (1,62) (2,60) (3,58) (4,56) (5,54) (6,52) (7,50) (8,48) (9,46) (10,44) (11,42) (12,40) (13,38) (14,36) (15,34) (16,32) (17,30) (18,28) (19,26) (20,24) (21,22) (22,20) (23,18) (24,16) (25,14) (26,12) (27,10) (28,8) (29,6) (30,4) (31,2) (32,0)
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота