Помогите, пожалуйста, решить. Паскаль

[AnnArhiA]

Помогите, пожалуйста, решить. Паскаль

я вроде как и решила, но преподша говорит что не правильно и надо решать через экспоненту....может кто-нибудь знает как это решить через экспоненту? помогите плиз-плиз-плиз

условие: дан целочисленный массив с количеством элементов n. напечатать те его элементы, индексы которых являются степенями двойки (1,2,4,8,16...)

 

[Николай_С]

А как Вы это решили?
Не стесняйтесь, приведите текст своей проги.

 

[Vladimir_S]

Таких "преподш" надо расстреливать из рогатки. В детстве. Чтобы сами не мучились и других не мучили. Или просто гнать в три шеи.
Ну вот, например, через логарифмы:

Const
 N=100;

Var
 A:Array[1..N] of Integer;
 i:Integer;

Begin
 Randomize;
 Writeln('Initial array:');
 for i:=1 to N do
  begin
   A[i]:=Random(100);
   Write(A[i]:4);
  end;
 Writeln;
 Writeln;
 Writeln('Selected elements:');
 for i:=1 to N do
  if Frac(Ln(i)/Ln(2))=0 then Write(A[i]:4);
 Readln
End.

 

[AnnArhiA]

спасибо огромное))

может еще с одной задачкой поможете?)

В столовой предлагается N комплексных обедов,состоящих из Q блюд. Известны стоимость и калорийность каждого блюда. Сколько стоят самый дешевый и самый дорогой обеды? Сколько калорий включает в себя самое калорийное блюдо?

 

[Vladimir_S]

спасибо огромное))

может еще с одной задачкой поможете?)

В столовой предлагается N комплексных обедов,состоящих из Q блюд. Известны стоимость и калорийность каждого блюда. Сколько стоят самый дешевый и самый дорогой обеды? Сколько калорий включает в себя самое калорийное блюдо?

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