Написал на том, что было под рукой: 1C
Если Квартира > ЭтажейВДоме * КвартирНаЭтаже Тогда
Сообщить("Нет такой квартиры в доме, мало этажей!");
ИначеЕсли Квартира <= КвартирНаЭтаже Тогда
Сообщить("Живет на первом этаже");
Иначе
ЖиветНа = Цел(Квартира / КвартирНаЭтаже);
ОстатокЭт = Квартира%КвартирНаЭтаже;
Если ОстатокЭт>0 Тогда //
ЖиветНа = ЖиветНа+1;
КонецЕсли;
Если ЖиветНа%2=0 И ЖиветНа=ЭтажейВДоме Тогда // это четный и последний
ВыходитьНа = ЖиветНа-1;
ИначеЕсли ЖиветНа%2=0 Тогда // четный в НЕчетный этаж
ВыходитьНа = ЖиветНа+1;
Иначе
ВыходитьНа = ЖиветНа;
КонецЕсли;
Сообщить(" Выйдет на: "+ВыходитьНа);
КонецЕсли;
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
