annastiebiekova
02.04.2020 17:44

Наберите следующий текст (шрифт заголовка – Times New Roman, 12 пт, полужирный; основного текста – Times New Roman, 12 пт. Параметры абзаца – отступ красной строки – 1,5; отступ справа – 0, слева – 0, перед – 0, после – 0, выравнивание по ширине, межстрочный интервал – одинарный). Найдите в Интернете изображения Гиппократа, Апполона, Асклепия, Гигиеи, Панакеи. Вставьте эти изображения в текст (используя возможность обтекания текстом). Выделите словосочетание «абортивного пессария» и создайте гиперссылку на веб-страницу, на которой дано определение этого словосочетания.

Задание 2.
Создайте следующий документ медицинского назначения:
Шрифт заголовка – Times New Roman, 12 пт, полужирный; основного текста – Times New Roman, 12 пт. Параметры абзаца – отступ красной строки – нет, отступ справа – 0, слева – 0, перед – 0, после – 0, выравнивание по левому краю, межстрочный интервал – одинарный. Верхнюю часть документа оформите с таблицы.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
ХорошийВася
31.12.2020 23:54
#include <iostream>
using namespace std;

int main()
{
    int Count[16],Names[16];
    for (int i=0; i<16; i++)
    {
        Count[i] = 0;
        Names[i] = i + 1;
    }
    int n,t;
    cin >> n;
    for (int i=1; i<=n; i++)
    {
        cin >> t;
        Count[t] = Count[t] + 1;
    }
    for (int i=15; i>0; i--)
        for (int j=1; j<i; j++)
            if (Count[j-1] < Count[j])
            {
                t = Count[j]; Count[j] = Count[j-1]; Count[j-1] = t;
                t = Names[j]; Names[j] = Names[j-1]; Names[j-1] = t;
            }
    for (int i=0; i<16; i++)
        if (Count[i] > 0)
            cout <<Names[i] <<' ' <<Count[i] <<endl;
    return 0;
}
Только при вводе t помни, что индексация массив в С++ начинается с нуля, соответственно последний элемент будет иметь индекс N-1.
0,0(0 оценок)
Ответ:
Metalmekid
01.06.2022 20:55
Var a: byte; b:integer;
Begin 
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');   
Readln(a);    
          Case a of        
1: writeln(b,' янавря');        
2: writeln(b,' февраля');      
3: writeln(b,' марта ');        
4: writeln(b,' апреля ');      
5: writeln(b,' мая');      
6: writeln(b,' июня ');        
7: writeln(b,' июля');       
8: writeln(b,' августа');     
9: writeln(b,' сентября');     
10: writeln(b,' октября');     
11: writeln(b,' ноября');       
12: writeln(b,' декабря');     
else writeln('Месяца №', a,'нет');   
end;       
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота