Определить количество элементов последовательности, которые заканчиваются на 3

@slawa · Регистрация: 23.09.2010

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста, я чтото не соображу.
Короче такая задача:

Дано натуральное число N и последовательность a1,a2...aN. Определить количество элементов последовательности, которые заканчиваются на 3. Решить задачу для N=16.

думается мне что надо создать массив типа [a1..aN] of integer, а потом как-то использовать функцию pos...более ничего понять не могу

@TAVulator · 21.01.2011, 15:11

Сообщение от slawa

создать массив типа [a1..aN] of integer

почему именно integer?

Сообщение от slawa

потом как-то использовать функцию pos

и как ты ее собираешься использовать?

@slawa · 21.01.2011, 15:15 **[ТС]**

но ведь pos вроде ищет подстроку в строке...ну я подумал что можно ей найти оканчивающиеся на 3 числа.
а integer потому что последовательность целочисленная вроде...я сам запутался.
Укажите пожалуйста в чем я неправ, исправлюсь)

@TAVulator · 21.01.2011, 15:16

Сообщение от slawa

но ведь pos вроде ищет подстроку в строке

верно. подстроку в строке. но у тебя же не строки, а массив чисел.

Сообщение от slawa

а integer потому что последовательность целочисленная вроде

ну если целочисленная, тогда нормально.

@slawa · 21.01.2011, 15:23 **[ТС]**

спасибо. в таком случае для перемещения по массиву использовать например for i:=a1 to N или a[i] ?

@TAVulator · 21.01.2011, 15:26

Сообщение от slawa

спасибо. в таком случае для перемещения по массиву использовать например for i:=a1 to N или a[i] ?

Зачем? от 1 до N. Вот весь алгоритм подсчета:

Pascal
1
2
3
4
K:=0;
For i:= 1 to N do
 if a[i] mod 10 = 3 then inc(K);
writeln(K);

@slawa · 21.01.2011, 15:29 **[ТС]**

а что такое inc?
Не могли бы Вы привести пример решения подобной задачи, мне их еще штук 10 решать...

@TAVulator · 21.01.2011, 15:32

Сообщение от slawa

а что такое inc?

тоже самое что и i:=i+1;

Сообщение от slawa

Не могли бы Вы привести пример решения подобной задачи, мне их еще штук 10 решать...

пример я привел. Тебе осталось только объявить переменные, заполнить массив значениями и все.

@slawa · 21.01.2011, 16:06 **[ТС]**

спасибо большое)

Добавлено через 31 минуту
аа, кстати, надо найти не те числа что делатся на 3 без остатка, а оканчивающиеся на 3.
а то программа выдает 0 элементов, хотя их должно быть 2 при n=16. (тоесть 3 и 13)

Добавлено через 52 секунды

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
const n = 16;
var k,i:integer;
 a:array [1..n] of integer;
begin
clrscr;
k:=0;
for i:=1 to n do
if a[i] mod 10 = 3 then inc(k);
writeln(k);
readln;
end.

@TAVulator · 21.01.2011, 16:08

Сообщение от slawa

аа, кстати, надо найти не те числа что делатся на 3 без остатка, а оканчивающиеся на 3.

я так и написал, смотри внимательней:

Сообщение от TAVulator

if a[i] mod 10 = 3 then inc(K);

Сообщение от slawa

а то программа выдает 0 элементов, хотя их должно быть 2 при n=16. (тоесть 3 и 13)

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

Добавлено через 35 секунд

Сообщение от slawa

Добавлено через 52 секунды

а где ввод значений массива?

@Dekio · 21.01.2011, 16:14

slawa,

Сообщение от slawa

for i:=1 to n do if a[i] mod 10 = 3 then inc(k);

Замени на

Pascal
1
2
3
4
5
for i:=1 to n do
begin
readln(a[i]);
if a[i] mod 10 = 3 then inc(k);
end;

@slawa · 21.01.2011, 16:16 **[ТС]**

ну так если n=16, то и сам массив будет от 1 до 16. я наверно не так понял
надо чтоб в массиве были элементы каждый помноженный на N?
тоесть
writeln('Vvedite elementy posledovatelnosti');
readln (?);
или вообще задаваться должны рандомно?

Добавлено через 1 минуту
Dekio, спасибо)

@TAVulator · 21.01.2011, 16:17

Сообщение от slawa

ну так если n=16, то и сам массив будет от 1 до 16. я наверно не так понял

да. не так понял. Это значит, что в массиве всего 16 элементов и значения этих элементов не обязательно должны быть 1,2,3 ... 16. Значения вводятся вручную или генерируются автоматически.

@Dekio · 21.01.2011, 16:18

Сообщение от slawa

или вообще задаваться должны рандомно

Они никому ничего не должны.
Можно считывать с файла/задавать рандом/считывать с клавиатуры

@slawa · 21.01.2011, 16:26 **[ТС]**

все работает через ручной ввод. а рандомно задавать если это вот так?:
randomize;
a[i]:=random;
??

@Dekio · 21.01.2011, 16:30

random(диапазон);
random(10); от 0 до 9

Сообщение от slawa

randomize;
a[i]:=random;
??

Тогда будет генерироваться число от 0 до 1

@slawa · 21.01.2011, 16:36 **[ТС]**

благодарствую, дошло таки...

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@slawa 1 / 1 / 0 Регистрация: 23.09.2010 Сообщений: 26

	Определить количество элементов последовательности, которые заканчиваются на 3 21.01.2011, 15:02. Показов 1898. Ответов 16 Метки нет (Все метки) Помогите пожалуйста, я чтото не соображу. Короче такая задача: Дано натуральное число N и последовательность a1,a2...aN. Определить количество элементов последовательности, которые заканчиваются на 3. Решить задачу для N=16. думается мне что надо создать массив типа [a1..aN] of integer, а потом как-то использовать функцию pos...более ничего понять не могу 0

@slawa 1 / 1 / 0 Регистрация: 23.09.2010 Сообщений: 26
	21.01.2011, 15:15 [ТС]
	но ведь pos вроде ищет подстроку в строке...ну я подумал что можно ей найти оканчивающиеся на 3 числа. а integer потому что последовательность целочисленная вроде...я сам запутался. Укажите пожалуйста в чем я неправ, исправлюсь) 0

@slawa 1 / 1 / 0 Регистрация: 23.09.2010 Сообщений: 26
	21.01.2011, 15:23 [ТС]
	спасибо. в таком случае для перемещения по массиву использовать например for i:=a1 to N или a[i] ? 0

@slawa 1 / 1 / 0 Регистрация: 23.09.2010 Сообщений: 26
	21.01.2011, 15:29 [ТС]
	а что такое inc? Не могли бы Вы привести пример решения подобной задачи, мне их еще штук 10 решать... 0

@slawa 1 / 1 / 0 Регистрация: 23.09.2010 Сообщений: 26
	21.01.2011, 16:16 [ТС]
	ну так если n=16, то и сам массив будет от 1 до 16. я наверно не так понял надо чтоб в массиве были элементы каждый помноженный на N? тоесть writeln('Vvedite elementy posledovatelnosti'); readln (?); или вообще задаваться должны рандомно? Добавлено через 1 минуту Dekio, спасибо) 0

@slawa 1 / 1 / 0 Регистрация: 23.09.2010 Сообщений: 26
	21.01.2011, 16:26 [ТС]
	все работает через ручной ввод. а рандомно задавать если это вот так?: randomize; a[i]:=random; ?? 0

@slawa 1 / 1 / 0 Регистрация: 23.09.2010 Сообщений: 26
	21.01.2011, 16:36 [ТС]
	благодарствую, дошло таки... 0