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

На одномерные массивы (pascal abc). известен рост каждого из 22 учеников класса. рост мальчиков условно задан отрицательными числами. определить средний рост мальчиков и средний рост девочек.

👇
Ответ:
komogortseva0101
komogortseva0101
05.06.2021
Var
ar:array[1.22] of integer;
ds,ms,i,m,d:integer;
begin
for i:=1 to 22 do begin
readln(ar[i]);
if ar[i]<0 then
begin
 m:=m+1;
 ms:=ms+ar[i];
end
else
begin
ds:=ds+ar[i];
d:=d+1
end;
end;
ms:=ms div m;
ds:=ds div d;
writeln(ms,' ',ds);
end.
4,5(2 оценок)
Открыть все ответы
Ответ:
Ника7002
Ника7002
05.06.2021

В город М напрямую можно попасть только из города Н (в который напрямую можно попасть только из города Ж), и из города Ж. Значит, для любого пути в Ж из А есть два варианта, как проехать в М.

В город Ж можно попасть напрямую из городов В, Г, и Д. В город В из города А можно попасть тремя путями: АБВ, АГВ и АБГВ, в город Г - двумя: АГ и АБГ, в город Е - тремя: АГЕ, АДЕ и АБГЕ.

Итого: Из города А в город Ж есть 3+2+3=8 путей, из Ж в М - 2 пути. Для каждого пути из А в Ж есть оба варианта пути из Ж в М, поэтому умножаем: 8×2=16 путей.

ответ: 16 путей

Буду очень благодарен, если Вы отметите мой ответ как лучший!

4,7(35 оценок)
Ответ:
2005Angelika
2005Angelika
05.06.2021
Смешная задача.
Если каждый год к первоначальной сумме прибавляется S×k/100, то за n лет прибавка составит S×k×n/100, а общая сумма составит S+S×k×n/100.
И эта сумма должна быть больше или равна x×S.
S+S×k×n/100 ≥ x×S
1+k×n/100 ≥ x
k×n/100 ≥ x-1
n ≥ 100×(x-1)/k, округленное до ближайшего большего целого.

Как видно, сумма S вообще не нужна, а прочее легко вычисляется на калькуляторе и даже "в столбик". Но Паскаль, так Паскаль...

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (k,x):=ReadReal2('Введите процент k и кратность x:');
  Writeln('Требуется лет: ',Ceil(100*(x-1)/k))
end.

Пример
Введите процент k и кратность x: 13.5 3
Требуется лет: 15
4,5(51 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ