Помощь - Поиск - Пользователи - Календарь
Полная версия: Натуральные числа
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
GET
Пожалуйста,помогите!Ну, не понимаю я в Паскале!
Даны натуральные числа n, a1,a2..an.Определить количество членов ak последовательности a1,a2,..an,удовлетворяющих условию 2^k<ak<k!
FreeMan
Код
counter:=0;
fak:=1;
for i:= 1 to n do begin
fak:=i*fak;
if (a[i]>1 shl i) and (a[i]<fak) then inc(counter);
end;

типа того.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.