Var x,y,z,c:real;
Procedure P(x,y,z:real; Var c:real);
Begin
c:=(x+y+z)/3;
End;
Begin
write('Введите x,y,z: ');readln(x,y,z);
P(x,y,z,c);
writeln('Среднее арифметическое = ',c);
End.
Строишь по таблице граф и перебираешь все пути.
Чтобы не потеряться, можно делать по алфавиту.
A→B→C→E = 2 + 1 + 2 = 5 ← кратчайший
A→C→E = 5 + 2 = 7
A→D→C→E = 1 + 3 + 2 = 6
Ответ:
15 или 16 в зависимости от используемой системы единиц. См. решение
Объяснение:
Текстовый документ занимает память :
N*2048*2 байт ⇒ N*4096
Растровый документ занимает:
N*1536*1024*3 байт (24-битная = 3 байтная, т.к. 1 байт=8 бит) ⇒
N*4718592.
Получаем неравенство:
N*4718592 - N*4096 > 70000000 (если за 1 Мбайт принять 1000000 байт)
N*(4718592-4096) > 70000000
N > 14 (ответ 15)
N*(4718592-4096) > 73400320 (если за 1 Мбайт принять 1 048 576 байт)
N > 15 (ответ 16).
Как понял. Задаешь два вектора. И начинаешь сравнивать значения первого вектора, со значениями второго. Если какие то значения окажутся равными. то записать какой слот они занимают в первом векторе. После проверки всех чисел, удалить запомненные слоты в первом векторе