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

Минимальные остовы Для заданного графа найдите минимальные остовы с алгоритмов Прима и Краскала.
С++


Минимальные остовы Для заданного графа найдите минимальные остовы с алгоритмов Прима и Краскала.С++

Показать ответ
Ответ:
Арина098765
Арина098765
23.09.2020 08:39

Александр Сергеевич Пушкин родился 26 мая 1799 года в Москве в дворянской помещичьей семье (отец его был майор в отставке) в день праздника Вознесения.

В тот же день у императора Павла родилась внучка, в честь которой во всех церквах шли молебны и гудели колокола. Так, по случайному совпадению день рождения русского гения был ознаменован всеобщим народным ликованием. Символично и место рождения поэта г. Москва - самое сердце русской жизни, России.

Будущего поэта крестили 8 июня в церкви Богоявления в Елохове.

Отец Пушкина Сергей Львович и мать Надежда Осиповна, урожденная Ганнибал, были дальними родственниками. Пылкие страсти, руководившие предками как по отцовской, так и по материнской линии, оказали свое влияние и на Пушкина.

Семья (кроме Александра, были еще дети Ольга и Лев) принадлежала к самой образованной части московского общества. только ошибки сделай сама

0,0(0 оценок)
Ответ:
emasihinp08dbq
emasihinp08dbq
27.12.2020 04:34

Держи 1 и 3 ;) :

 

1)

Program solution;
Uses Crt;
Var i, poloz, otrits, zero : Byte;
n : integer;

Begin
ClrScr;
poloz := 0;
otrits := 0;
zero := 0;

for i := 1 to 10 do
        begin
        readln(n);
        if n > 0 then poloz := poloz + 1;
        if n < 0 then otrits := otrits + 1;
        if n = 0 then zero := zero + 1;
        end;

write('+: ', poloz, ', -: ', otrits, ', 0: ', zero);

ReadKey;
End.

 

3:

Program solution;
Uses Crt;
Var sum, num, count : Word;

Begin
ClrScr;
sum := 0;
count := 0;

while sum <= 100 do
        begin
        write(': ');
        readln(num);
        sum := sum + num;
        count := count + 1;
        end;

writeln('Было введено чисел: ', count);

ReadKey;
End.

 

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота