М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
nari06
nari06
17.11.2021 11:00 •  Информатика

Пользователь работал с каталогом d: \документы\фото\2011\весна. сначала он поднялся на три уровня вверх, потом спустился в каталог информатика. укажите полный путь для того каталога, в котором оказался пользователь (запишите номер правильного ответа): 1)d: \документы\фото\информатика\ 2)d: \документы\информатика\экзамен 3)d: \документы\экзамен\информатика 4)d: \документы\фото\2011\весна\экзамен\информатика

👇
Ответ:
метал3
метал3
17.11.2021
Начало: D:\ДОКУМЕНТЫ\ФОТО\2011\ВЕСНА
После поднятия на 3 уровня вверх: D:\ДОКУМЕНТЫ\
После спуска в ИНФОРМАТИКА:  D:\ДОКУМЕНТЫ\ЭКЗАМЕН\ИНФОРМАТИКА
ответ: 3
4,6(12 оценок)
Ответ:
полина2130
полина2130
17.11.2021
Вообще-то так: D:\Документы\Информатика
4,4(5 оценок)
Открыть все ответы
Ответ:
igor2285
igor2285
17.11.2021
1.
const n=10;
var a:array[1..n] of integer;
max,min,i:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(51);
 write(a[i],' ');
 end;
writeln;
max:=a[1]; min:=a[1];
for i:=2 to n do
 begin
 if a[i]>max then max:=a[i];
 if a[i]<min then min:=a[i];
 end;
writeln('max = ',max,'  min = ',min);
writeln(max,' + ',min,' = ',max+min);
end.

Пример:
42 24 9 46 9 47 24 24 29 39 
max = 47  min = 9
47 + 9 = 56

2.
begin
  var a:=ReadArrReal('Вводите массив:',10);
  Writeln('Max = ',a.Max);
  Writeln('Min = ',a.Min);
  Writeln('Max+Min = ',a.Max+a.Min);
end.

Пример:
Вводите массив: 15 23 85 46 70 38 94 43 51 76
Max = 94
Min = 15
Max+Min = 109
4,7(24 оценок)
Ответ:
Cat4ik
Cat4ik
17.11.2021
//Вот программа, которая кодирует слова в системах счисления от 2 до 10
//Первый ввод - число, второй - система счисления
//Pascal ABC.NET v3.0

var
 a,i,b,r,n,j,bug:integer;
 s,se,slo,slof:string;

procedure preob(var a,b,n:integer; var se:string);
 begin
  repeat
   b:=a mod n;
   a:=a div n;
   str(b,se);
   s+=se;
  until (a<=n-1);
 end;

begin
readln(slo);
readln(n);
for j:=1 to length(slo) do
begin;
a:=ord(slo[j]);
preob(a,b,n,se);
str(a,se);
s+=se;
for i:=1 to length(s) div 2 do
begin;
se:=s[i];
s[i]:=s[length(s)-i+1];
s[length(s)-i+1]:=se[1];
end;
write(s,'-');
slof:=slof+s;
delete(s,1,length(s));
end;
end.

//Слово Программа она кодирует как 11001111-11110000-11101110-11100011-11110000-11100000-11101100-11101100-11100000-
4,7(55 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ