Паскаль АВС.NET задача !!!Когда барон Мюнхаузен возжелал пообедать ,он привязав к

Question

Паскаль АВС.NET задача !!!Когда барон Мюнхаузен возжелал пообедать ,он привязав к

Паскаль АВС.NET
задачка !!!
Когда барон Мюнхаузен возжелал пообедать ,он привязав к длиной веревки кусочек сала и кинул его высоко в воздух.Стая диких гусей , что пролетала тем временем над его жилищем ,заинтересовались необыкновенным предметом , и самый старший что возглавлял стаю , проглотил его . Не успел он насладиться чувство сытости , как кусок сала перескочил через него и пропал у клюве иного гуся . Сейчас для обеда барона Мюнхаузену зависела только от длины веревки ! Сколько килограмм поджаренной гусятины было подано на обед барону Мюнхаузену ,если длина веревки была L см,N гусей летели на расстоянии h см друг от друга ,длина каждого из них одинакова k см , а вес этих гусей у кг сочиняла m1,m2,....,mN?

Задать свой вопрос

Эвелина Догадаева
Информатика
2019-09-10 14:02:39
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Синонм до виразу -торохтить як бочка

в 1-ый денек турист прошел 3/20 всего пути,а во 2-ой на

Имя существительное мужского рода 2 склонения в форме единственного числа творительного

помогите мне пожалуйста с номером 1322

the little kite looked atthe other kite. tkites were in the

помогите составить вырожение

Помогите Кто выдумал доктора сову?И кто вымыслил доктора артишок

решите плиз!! 4 целых 1/8 -6 целых 2/9+(-5 целых 1/6)-(-3 целых

Вправа 346 помогите безотлагательно плиз

химия. тест по органика.

Санек Жордочкин · Answer 1 · 2019-09-10 14:11:17+3:00

Var
L,n,h,k,i,j,mas:integer;
m:array of integer;
begin
write('Введите L N h k: ');
readln(L,n,h,k);
m:=new integer[n];
write('Введите массы гусей: ');
for i:=0 to n-1 do
read(m[i]);
for i:=0 to n-1 do
begin
   j:=j+h;
   if jlt;=L then mas:=mas+m[i];
j:=j+k;
   end;
writeln('Ответ: ',mas)
end.

О проекте

Паскаль АВС.NET задача !!!Когда барон Мюнхаузен возжелал пообедать ,он привязав к

Добро пожаловать!