ответ: Рамина- •−• •− −− •• −• •−
Объяснение: Каждую букву переводим в азбуку Морзе.
По итогу получаем ответ-
•−• •− −− •• −• •−
Написал на том, что было под рукой: 1C
Если Квартира > ЭтажейВДоме * КвартирНаЭтаже Тогда
Сообщить("Нет такой квартиры в доме, мало этажей!");
ИначеЕсли Квартира <= КвартирНаЭтаже Тогда
Сообщить("Живет на первом этаже");
Иначе
ЖиветНа = Цел(Квартира / КвартирНаЭтаже);
ОстатокЭт = Квартира%КвартирНаЭтаже;
Если ОстатокЭт>0 Тогда //
ЖиветНа = ЖиветНа+1;
КонецЕсли;
Если ЖиветНа%2=0 И ЖиветНа=ЭтажейВДоме Тогда // это четный и последний
ВыходитьНа = ЖиветНа-1;
ИначеЕсли ЖиветНа%2=0 Тогда // четный в НЕчетный этаж
ВыходитьНа = ЖиветНа+1;
Иначе
ВыходитьНа = ЖиветНа;
КонецЕсли;
Сообщить(" Выйдет на: "+ВыходитьНа);
КонецЕсли;
Uses
Crt;
Var
i, N, kol: byte;
sum_rost, sr_rost: real;
team: array[1..100] of real;
Begin
sum_rost := 0.0;
sr_rost := 0.0;
kol := 0;
write('Введите количество членов команды');
read(N);
writeln('Введите рост каждого члена команды');
for i := 1 to N do
begin
readln(team[i]);
sum_rost := sum_rost + team[i];
end;
sr_rost := sum_rost / N;
for i := 1 to N do
if (team[i] > sr_rost) then
kol := kol + 1;
writeln('Количество членов команды, рост которых превышает средний по команде (', sr_rost:4:2, ')');
write(' равно ', kol);
End.
Я надеюсь надо было на паскале написать?)
.-. .- -- .. -. .-
Объяснение:
По идеи вот так