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

Сотрудники одного из отделов харатьян, ульянов, зотов, иванов и василенко должны были поехать в разные города — астрахань, бийск, вологду, пензу, смоленск и екатеринбург. при этом харатьян мог ехать только в астрахань, бийск или смоленск; ульянов — только в бийск и пензу, зотов — мог ехать только один и в вологду, иванов не мог ехать вместе с ульяновым, василенко мог ехать только с харатьяном или зотовым, но не в смоленск. в какой город должен поехать каждый из них, чтобы при этом вдвоём они не были ни в одном городе, а каждый побывал только в одном городе

👇
Ответ:
Tini2311
Tini2311
01.08.2020
Хартьян в Смоленск; Ульянов в Пензу; Зотов в Вологду; Иванов в Екатеринбург; Василенко в Астрахань
4,6(20 оценок)
Открыть все ответы
Ответ:
BaSfOr
BaSfOr
01.08.2020
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var
  a: array of integer;
  i, n: integer;

begin
  write('Введите n ');readln(n);
  SetLength(a, n);
  writeln('Исходный массив :');
  for i := 0 to n - 1 do
  begin
    a[i] := random(-20, 20);write(a[i]:4);
  end;
  writeln;
  writeln('Массив после обработки:');
  for i := 0 to n - 1 do
  begin
    if a[i] < 0 then a[i] := 10;
    write(a[i]:4);
  end;
end.

Тестовое решение:
Введите n 10
Исходный массив :
 -19 -14 -14   1   2  16  16  -6   0  19
Массив после обработки:
  10  10  10   1   2  16  16  10   0  19
4,6(21 оценок)
Ответ:
SXTN
SXTN
01.08.2020
Const 
  sixteen: string = '0123456789ABCDEF';

function TenIn16(x: integer): string;
var  s: string;
begin 
  repeat   
  s := sixteen[x mod 16 + 1] + s;   
  x := x div 16; 
  until x = 0; 
  if length(s) = 1 then    s := '0' + s; 
  TenIn16 := s;
end;

var 
  f1, f2: text; 
  a1, a2, a3: byte;

begin 
  assign(f1, 'record.txt'); 
  reset(f1); 
  assign(f2, 'result.txt'); 
  rewrite(f2); 
  while not eof(f1) do  
  begin   
    read(f1, a1, a2, a3);   
    writeln(f2, TenIn16(a1), TenIn16(a2), TenIn16(a3)); 
  end; 
  close(f1); 
  close(f2);
end.
4,6(93 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ