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

Пользователь работал над каталогом колбаса после того как он поднялся на один уровень вверх затем поднялся еще на один уровень вверх а потом опустился на один уровень вниз он оказался в каталоге е/ пища/ обед/ сыр в каком каталоге пользователь начинал работу

👇
Ответ:
bogdanka1503p08ifa
bogdanka1503p08ifa
20.08.2020
е/ пища/ обед/ сыр / колбаса
4,7(64 оценок)
Открыть все ответы
Ответ:
Medina20161102
Medina20161102
20.08.2020
//Задание №1
const
  m = 5;
  n = 7;

var
  a: array[1..m, 1..n] of integer;
  i, j, s: integer;

begin
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(21) - 10;
      if (i mod 2) <> 0 then s := s + a[i, j];
      write(a[i, j]:4);
    end;
    writeln;
  end;
  write('Сумма элементов на нечетных строках = ', s);
end.

Тестовое решение:
 -10   2  -1  -8  -9  -1   5
   2 -10   2   4   8  -6   8
   0   3   2   3  -8 -10   4
   3  -3  -4   2   9  -8   3
   9  -4  -1   3   7   3  -2
Сумма элементов на нечетных строках = -13

//Задание №2
const
  m = 5;
  n = 7;

var
  a: array[1..m, 1..n] of integer;
  i, j, s: integer;

begin
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(21) - 10;
      if (i mod 2) <> 0 then s := s + a[i, j];
      write(a[i, j]:4);
    end;
    writeln;
  end;
  writeln('Элементы на нечетных столбцах:');
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      if (j mod 2) <> 0 then write('a[', i, ',', j, '] = ', a[i, j], '  ');
    end;
    writeln;
  end;
end.

Тестовое решение:
   4 -10  -7  -4  -7  -5 -10
  -1   3   6 -10  -2  -1  -5
   2   8  -5  -1  -3   1   2
   3  10  -5   6  -1   3   2
  -8   3   4   5  -1   6  10
Элементы на нечетных столбцах:
a[1,1] = 4  a[1,3] = -7  a[1,5] = -7  a[1,7] = -10 
a[2,1] = -1  a[2,3] = 6  a[2,5] = -2  a[2,7] = -5 
a[3,1] = 2  a[3,3] = -5  a[3,5] = -3  a[3,7] = 2 
a[4,1] = 3  a[4,3] = -5  a[4,5] = -1  a[4,7] = 2 
a[5,1] = -8  a[5,3] = 4  a[5,5] = -1  a[5,7] = 10
4,4(88 оценок)
Ответ:
exampllee1
exampllee1
20.08.2020
Var
a:integer;
begin
write('Введите время=');
readln(a);
if a=0 then begin
write('Ночь');
end;
if a=1 then begin
write('Ночь');
end;
if a=2 then begin
write('Ночь');
end;
if a=3 then begin
write('Ночь');
end;
if a=4 then begin
write('Ночь');
end;
if a=5 then begin
write('Утро');
end;
if a=6 then begin
write('Утро');
end;
if a=7 then begin
write('Утро');
end;
if a=8 then begin
write('Утро');
end;
if a=9 then begin
write('Утро');
end;
if a=10 then begin
write('Утро');
end;
if a=11 then begin
write('День');
end;
if a=12 then begin
write('День');
end;
if a=13 then begin
write('День');
end;
if a=14 then begin
write('День');
end;
if a=15 then begin
write('День');
end;
if a=16 then begin
write('День');
end;
if a=17 then begin
write('Вечер');
end;
if a=18 then begin
write('Вечер');
end;
if a=19 then begin
write('Вечер');
end;
if a=20 then begin
write('Вечер');
end;
if a=21 then begin
write('Вечер');
end;
if a=22 then begin
write('Ночь');
end;
if a=23 then begin
write('Ночь');
end;
if a=24 then begin
write('Ночь');
end;
end.
4,6(31 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ