type
firma = record
fam:string;
adres:string;
end;
var
mas:array[1..8] of firma;
i,k:integer;
str:string;
begin
mas[1].fam:='Кузин';
mas[2].fam:='Куравлев';
mas[3].fam:='Кудин';
mas[4].fam:='Кульков';
mas[5].fam:='Кубиков';
mas[6].fam:='Иванов';
mas[7].fam:='Петров';
mas[8].fam:='Сидоров';
mas[1].adres:='ул.Мира,7';
mas[2].adres:='ул.Маркса,6';
mas[3].adres:='ул.Комсомольская,17';
mas[4].adres:='ул.Ленина,5';
mas[5].adres:='ул.Центральная,18';
mas[6].adres:='ул.Клубная,26';
mas[7].adres:='ул.Чехова,2';
mas[8].adres:='ул.Амосова,68';
write('Введите фамилию сотрудника -> ');readln(str);
k:=0;
for i:=1 to 8 do
begin
if str=mas[i].fam then
begin
k:=k+1;
writeln('фамилия - ',mas[i].fam);
writeln('адрес - ',mas[i].adres);
end;
end;
if k=0 then writeln('такого сотрудника нет!');
readln;
end.
Объяснение:
Это ответ на задание 2
Qiwi +79172489972
Скрипка Флейта Альта Кларнет Габое Труба
Браун 0 0 1 1 0 0
Смит 0 1 0 0 1 0
Вессон 1 0 0 0 0 1
из последнего условия следует что Б. играет скрипке, флейте, альте или кларнете.
из 4ого условия следует что С. не альтеист и не трубач
из 3его условия следует что Б. не скрипач и не играющий на флейте
С. не скрипач,иначе это противоречит условию 1му
При работе за компьютером подготовить рабочее место.
Рабочее место должно включать в себя только нужные предметы.
При работе за компьютером монитор должен находится на уровне глаз или чуть выше. Мышь на расстоянии вытянутой руки или немного ближе. Клавиатура на половине расстояния вытянутой руки.