Makar198043
26.05.2020 06:44

Построить "дерево", найти кратчайший путь


Построить дерево, найти кратчайший путь

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Dashboard18228
08.03.2021 09:23

Қабылдау әдісі бойынша:

Көрнекілік - көру органдарымен қабылданады.

Дыбыс - есту органдарымен қабылданады.

Тактильді - сезімтал рецепторлармен қабылданады.

Olfactory - иісті рецепторлар қабылдаған.

Дәмі - дәмдік бүршіктер арқылы қабылданады.

Таныстыру формасына сәйкес:

Мәтін - тіл таңбаларын көрсетуге арналған таңбалар түрінде беріледі.

Сандық - математикалық әрекеттерді білдіретін сандар мен белгілер түрінде.

Графикалық - кескін, нысан, графика түрінде.

Дыбыс - ауызша немесе дыбыстық жолмен тілдік токендерді жазу және беру түрінде.

Бейне ақпарат - бейнежазба түрінде беріледі.

Кездесу бойынша:

Бұқаралық ақпарат - тривиалды ақпараттан тұрады және қоғамның көпшілігіне түсінікті ұғымдардың жиынтығымен жұмыс істейді.

Арнайы - қолданылған кезде ақпараттың көп бөлігі түсінбеуі мүмкін, бірақ таралған әлеуметтік топта қажет және түсінікті ақпарат берілетін белгілі бір тұжырымдамалар жиынтығы бар.

Құпия - адамдардың тар шеңберіне және жабық (қорғалған) арналар арқылы беріледі.

Жеке (жеке) - популяциядағы әлеуметтік мәртебе мен әлеуметтік өзара әрекеттесудің түрлерін анықтайтын жеке тұлға туралы ақпарат жиынтығы.

Мәні бойынша:

Нақты - белгілі бір уақытта құнды ақпарат.

Сенімді - сенімді көздерден бұрмаламай алынған ақпарат.

Айқын - ақпарат көзделетін адамға түсінікті тілде беріледі.

Толық - дұрыс шешім қабылдауға немесе түсінуге жеткілікті ақпарат.

Пайдалы - ақпараттың пайдалылығын ақпарат алу субъектісі оны пайдалану мүмкіндіктерінің көлеміне байланысты анықтайды.

Шындығында:

Рас

Жалған.

0,0(0 оценок)
Ответ:
Кусик11
10.08.2020 01:11

1) Var i:Integer;

A:array[1..10]of integer;

Begin

Write('Введите пять цифр') ;

For i:=1 to 5 do begin

Read(a[i]) ;end;

Write('Кратные двум') ;

For i:=1 to 5 do begin

If a[i] mod 2 =0 then write(' ', a[i]) ;

End;

Write('кратные четырем') ;

For i:=1 to 5 do begin

If a[i] mod 4 =0 then write(' ', a[i]) ;

End;

End.

2)Var a, b, k, i:integer ;

Begin

Write(' a=') ;read(a) ;

Write(' b=') ;read(b) ;

If (a>0)and(b>0) then k:=0;

If (a>0)and(b<0) then k:=abs(b) ;

If (a<0)and(b>0) then k:=abs(a) ;

If (a<0)and(b<0) then k:=abs(a-b) ;

Write('колво отрицательных чисел ', k) ;

End.

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