Сотрудники одного из отделов харатьян, ульянов, зотов, иванов и василенко должны были поехать в разные города — астрахань, бийск, вологду, пензу, смоленск и екатеринбург. при этом харатьян мог ехать только в астрахань, бийск или смоленск; ульянов — только в бийск и пензу, зотов — мог ехать только один и в вологду, иванов не мог ехать вместе с ульяновым, василенко мог ехать только с харатьяном или зотовым, но не в смоленск. в какой город должен поехать каждый из них, чтобы при этом вдвоём они не были ни в одном городе, а каждый побывал только в одном городе
Ответы
Хартьян в Смоленск; Ульянов в Пензу; Зотов в Вологду; Иванов в Екатеринбург; Василенко в Астрахань
//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
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
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.
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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
