Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
sestrenka141989
3 / 3 / 0
Регистрация: 04.04.2010
Сообщений: 49
#1

Определить, каким по счету в последовательности A идет член, равный B

04.04.2010, 22:56. Просмотров 925. Ответов 1
Метки нет (Все метки)

Помогите, кто может написать прогу?:confused:
Вот:
1. Дано натуральное число N.Найти наибольшее число М(М>1)на которое сума цифр в цифровой записи числа N делится без остатка. Если такого числа нету вывести «no». Пример:N=12345, М=5. Сума цифр числа N равна 15, делится на 5

2. Дано натуральное число b и а1,……,аn которая оканчивается 0. Определить каким по счету в последовательности а1,…..аn идет член, равен b. Если такого нету вывести 0
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.04.2010, 22:56
Ответы с готовыми решениями:

Определить, каким по счету идет в последовательности x1,…, xn член, равный a
Исправить все ошибки и сделать программу работоспособной Даны целые числа a,...

Определить, каким по счету идет в последовательности член, равный а
Друзья,по причине болезни пропустил эту тему,в итоге застрял на ней,помогите...

Определить, каким по счету идет в последовательности член, равный a
Даны целые числа a, n, xi,...xn (n>0). Определить, каким по счету идет в...

Определить каким по счету идет в массиве элемент, равный числу К
1)Дан массив А(N).Определить каким по счету идет в массиве элемент, равный...

Определить каким по счёту идёт в последовательности член, равный a (блок-схема)
uses crt; type mas2 = array of real; mas1 = array of real; var ...

1
Жека-старший
Студент
496 / 344 / 162
Регистрация: 15.03.2010
Сообщений: 601
04.04.2010, 23:04 #2
Лучший ответ Сообщение было отмечено sestrenka141989 как решение

Решение

это вторая

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program pr1;
var n,i,pos:byte; x,b,pr:integer;
begin
  writeln('Введите число b');
  readln(b);
  i:=0;
  pr:=0; 
  repeat
    inc(i);
    writeln('Введите ',i,' элемент последовательности');
    readln(x);
    if x=b then begin pr:=1;pos:=i;end
    until x=0;
  if pr=1 then writeln('Posiziya- ',pos)
  else writeln('0');
  readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.04.2010, 23:04

Определить, каким по счету идет в последовательности член, равный а
200. Даны целые числа a, n, x1,..., xn (n>0). Определить, каким по счету идет...

Определить, каким по счету идет в последовательности член, равный а
Даны целые числа a, n, x1,..., xn (n>0). Определить, каким по счету идет в...

Есть ли в последовательности хотя бы один член,равный q
Вариант №4.Дано натуральное число n и целые числа a,a1,...an где n<=1000.Если в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru