Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.07.2014, 18:19   #1
Veronika_13
Пользователь
 
Регистрация: 27.03.2014
Сообщений: 52
По умолчанию Найти m-й член последовательности / Pascal ABC

Найти m-й член последовательности {an}, если известно, что a1=k (натуральное число),
ai+1=2ai - 1, где i=1, 2, 3, ... , и определить, встречается ли в записи результата, хотя бы один раз,
цифра 7.
Veronika_13 вне форума Ответить с цитированием
Старый 07.07.2014, 19:28   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

С потолка:
Код:
var i,m,k,a:integer;
begin
 k:=1;
 m:=10;
 a:=k;write(a:5);
 for i:=2 to m do begin
  a:=2*a; write(a:5);
 end;
 while a<>0 do begin
  if (a mod 10)=7 then begin write('Да'); break; end;
  a:=a div 10;
 end;
 readln;
end.
Не проверял.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вычислить N-й член последовательности(Turbo Pascal) siato Помощь студентам 1 27.11.2013 21:33
Найти первый отрицательный член последовательности cos(ctg(n)), n=1, 2, 3, …. (Delphi) shablakov Помощь студентам 1 24.06.2013 17:13
Написать программу на Pascal ABC. (Рекурентные последовательности) VladimirAvakov Помощь студентам 4 15.03.2013 11:12
в предложении найти слова, последовательности букв (например, abc, nop) Евгудвин Паскаль, Turbo Pascal, PascalABC.NET 0 14.05.2011 12:01