Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Сумма индексов Строка разбивается на элементы по 5 символов в каждом. Найти сумму индексов элементов, содержащих хотя бы одну цифру и ни одной гласной буквы. input KDSFJHGLKDJGHLSUIRH5HGUHG58HGLSHDJHTI8GLSRH984GKDJ output 25 Искал в поиске, внятного решения так и не нашел. Помогите пожалуйста https://www.cyberforum.ru/ turbo-pascal/ thread2605134.html	Turbo Pascal Дан массив слов. Заменить слова, начинающиеся на букву «R» на слово, введённое с клавиатуры Дан массив слов. Заменить слова, начинающиеся на букву «R» на слово, введённое с клавиатуры. Вывести исходный массив в строку, разделяя элементы пробелом и изменённый массив в столбец
Turbo Pascal Заполнить массив случайными символами (коды символов из диапазона (65; 90) Вывести массив в строку Заполнить массив случайными символами (коды символов из диапазона (65; 90). Вывести массив в строку, разделяя элементы пробелом. https://www.cyberforum.ru/ turbo-pascal/ thread2604628.html	Turbo Pascal Определить, содержит ли массив введённое с клавиатуры слово Дан одномерный строковый массив (количество элементов вводится с клавиатуры). Элементом массива является слово. Определить и сообщить содержит ли этот массива введённое с клавиатуры слово. https://www.cyberforum.ru/ turbo-pascal/ thread2604626.html
Без начальных согласных Turbo Pascal Дана строка, состоящая из заглавных английских букв и цифр. Определить число согласных букв, расположенных после первой буквы 'A'. input KDSFJHGLKDJGHLSUIRH5HGUHG58HGLAHEJATI8GLSRU984GKDJ output 11	Turbo Pascal Каждый из интегралов, приведенных в варианте задания вычислить 1. Каждый из интегралов, приведенных в варианте задания вы-числить: a) по формуле прямоугольников; b) по формуле трапеций; c) по формуле Симпсона, разбив интервал интегрирования на n частей (n=30..40). 2. Сравнить между собой результаты вычислений и оценить по-грешность вычисления, используя соответствующие приближенные оценки. 3. Вычислить приведенные в задании интегралы аналитически и... https://www.cyberforum.ru/ turbo-pascal/ thread2604058.html
Turbo Pascal Определить аналитически и графически отрезок, содержащий корень уравнения https://www.cyberforum.ru/ turbo-pascal/ thread2604055.html 1. Для каждого из двух уравнений, заданных в варианте задания, определить аналитически и графически отрезок, содержащий корень уравнения. 2. Вручную уточнить значение каждого корня, выполнив две ите-рации. 3. Составить блок-схему и программу для нахождения корня каж-дого уравнения методом половинного деления и методом Ньютона с точностью . 4. Вывести на экран и в файл приближенное значение...	Для числовой последовательности найти первый член и его номер М такой, чтобы a(n)<eps Turbo Pascal Для числовой последовательности a(n)=\frac{(n-1)}{n^2}, n = 1,2,...найти первый член и его номер М такой, чтобы a(n) < eps, ε – заданное число, например , ε = 0,001 и вычислить сумму S=\sum_{n=1}^{M}a(n)
Turbo Pascal После каждой буквы исходного слова вставить заданную букву https://www.cyberforum.ru/ turbo-pascal/ thread2603599.html Как точно прописать в условии Что бы то слово которое вводится с клавиатуры После каждой буквы исходного слова вставить заданную букву. С клавиатуры вводится слово в латинском алфавите. Прошу помочь ___ Вариации: 1)var s:string; i:byte; begin writeln('Введите слово');	Turbo Pascal Программа с двумя метками Простейшая программа с двумя метками. Вот только не получается сделать её в две строки. uses Crt; LABEL m1, m2; Var i: Integer; begin ClrScr; i:= 1000; m1: Write(' ', i , ' '); i:= i – 1; if I <= 990 then goto m2 else goto m1; https://www.cyberforum.ru/ turbo-pascal/ thread2603254.html
Turbo Pascal Работа с текстовыми файлами последовательного и прямого доступа Составить программу, которая состоит из 3 частей Часть 1: Программа создания текстового файла с прямым доступом; Часть 2: Программа создания текстового файла с последовательным доступом; Часть 3: Программа поиска и корректировки данных в существующем файле; Получилось только 2 часть, с первой как-то криво создает файл. Заранее спасибо.	Turbo Pascal В заданной числовой последовательности найти и вывести на печать номер первого отрицательного элемента Написать программу для решения следующей задачи: в заданной числовой последовательности найти и вывести на печать номер первого отрицательного элемента. Если все элементы последовательности неотрицательны, то вывести ноль. https://www.cyberforum.ru/ turbo-pascal/ thread2603100.html

Puporev

Почетный модератор

64299 / 47594 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

26.03.2020, 15:14

Одна нечетная цифра - Turbo Pascal - Ответ 14368782

26.03.2020, 15:14. Показов 1024. Ответов 1

Метки (Все метки)

Сообщение было отмечено KinjongUn как решение

Решение

Pascal

var s:string;
    m:array[1..100] of string[5];
    n,i,j,k,sm:integer;
begin
s:='KDSFJHGLKDJGHLSUIRH5HGUHG58HGLSHDJHTI8GLSRH984GKDJ';
n:=length(s) div 5;
sm:=0;
for i:=1 to n do
 begin
  m[i]:=copy(s,(i-1)*5+1,5);
  k:=0;
  for j:=1 to 5 do
  if m[i][j] in ['1','3','5','7','9'] then inc(k);
  if k=1 then inc(sm,i);
 end;
writeln(sm)
end.

Вернуться к обсуждению:
Одна нечетная цифра Turbo Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

26.03.2020, 15:14

Готовые ответы и решения:

Подсчитать количество n-значных натуральных чисел, в которых сумма цифр нечетная, а младшая цифра - парная.
Помогите пожалуйста с задачой ,очень прошу !

Удалить из него все элементы, в которых последняя цифра нечетная, а само число делится на удвоенную последнюю цифру.
Здравствуйте, помогите с задачей, не могу разобраться. Дан массив целых чисел (n = 14),...

Найти числа, в которых хоть одна цифра 3
В Берляндии снова президентские выборы. В рамках предвыборной кампании "Не будет жизни вам пока..."...

Определить входит ли в произвольное число x хотя бы одна цифра 7
Определить входит ли в произвольное число x хотя бы одна цифра 7. Если да, то заменить каждую цифру...

	26.03.2020, 15:14

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

26.03.2020, 15:14

Помогаю со студенческими работами здесь

Считать и напечатать то трехзначное число, в котором повторяется одна цифра
Считать и печатать то трехзначное в котром повторяется одна цифра

Удалить из массива все элементы, в которых первая цифра нечетная
Надеюсь кто-то сможет помочь. Дан массив целых чисел (n=15), заполненный случайным образом числами...

Подсчитать количество n-значных чисел Фибоначчи, в которых старшая цифра нечетная
Помогите решить на языке Pascal следующие задачи: 1. Подсчитать количество n-значных чисел...

Подсчитать количество n- значных натуральных чисел, в которых сумма цифр нечетная, а младшая цифра – четная
Подсчитать количество n- значных натуральных чисел, в которых сумма цифр нечетная, а младшая цифра...

Наверх