Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Двумерные массивы, скорректировать программу Подскажите, пожалуйста, что нужно изменить в программе чтоб итог имел такой вид. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 ... Сейчас он имеет такой вид, то есть я заполнила массив "змейкой". 1 2 3 4 5 6 7 8 9 10 https://www.cyberforum.ru/ pascal/ thread1032224.html Pascal исправьте ошибку
Если в матрице А нет элементов модуль которых отличается от заданной величины Р менее, чем на заданную величину Е, найти для каждой ее строки среднее арифметическое положительных элементов. Матрица 5*5................не выводит среднее арифметическое положительных элементов program Project1; const n=5; var a:array of real; k,f,i,j:integer; p,e,s:real; begin write('p=');
Pascal Отпечатать номера групп, где отличников более 15% и число таких групп https://www.cyberforum.ru/ pascal/ thread1032147.html
Дана матрица из 2 столбцов и 10 строк. Первый элемент каждой стоки представляет общее число студентов, а второй число отличников в одной из десяти групп. Номер строки соответствует номеру группы на учебном потоке. Отпечатать номера групп, где отличников более 15% и число таких групп. Помогите пожалуйста Буду очень благодарен
Pascal Перемножение полиномов. Не понимаю код https://www.cyberforum.ru/ pascal/ thread1032109.html
program mul_mnog; type PIntList = ^TIntList; TIntList = record value: integer; next: PIntList; end; var P,Q,R: PIntList; M,N: integer;
Работа с массивом Pascal
Определить в массиве Z(N) количество последовательных непересекающихся пар чисел, в которых первое число больше второго. По-менять местами эти числа. Числа из пар, не удовлетворяющих условию, переписать в массив В, изменив у них знаки на противоположные.
Pascal записи https://www.cyberforum.ru/ pascal/ thread1032003.html
Создать массив записей, содержащий данные о кубах: размер каждого куба (длину ребра), его цвет и материал. Найти количество кубов с ребром равным 5.
Pascal Обработка упорядоченной последовательности Дана последовательность Х=(х1...хn) натуральных чисел, упорядоченных по неубыванию, т.е. x<=x<=...<=xn. Элемент последовательности назовем одиночкой, если его значение отлично от значения любого другого элемента в Х. Группу элементов хm+1, xm+2....xm+k назовем цепочкой длиной k(k >= 1), если xm<xm+1=xm+2=...=xm+k+1. Построить вектор V=(vi.....Vn), где Vi - количество цепочек в X длины i.... https://www.cyberforum.ru/ pascal/ thread1031992.html Процедуры и функции Pascal
решить как с помощью процедуры, так и с пошью функции. Даны две тройки чисел a,b,c, a1,b1,c1.вычислить выражение d=√(min(a,b,c)+min(a1,b1,c1)).
Pascal Деревья.Модули https://www.cyberforum.ru/ pascal/ thread1031839.html
Типы данных и подпрограммы для поиска ближайшего (с наибольшей длинной пути относительно корня дерева) предка двух заданных ключами узлов n-нарного дерева. Кроме подпрограммы поиска предка реализовать подпрограммы для создания ориентированного n-нарного дерева из m узлов, удаления дерева, распечатка дерева на экране. Поскольку узлы идентифицируются значениями своих ключей, ключи должны быть...
Pascal Произведение нечетных элементов до первого , превышающее заданное число, и количество отрицательных элементов после н Помогите решить в турбо паскаль https://www.cyberforum.ru/ pascal/ thread1031756.html
НАйти сумму элементов, кратных заданному числу и попавших в интервал [a,b] Pascal
Помогите Могу помочь перенести топик в правильный раздел. Только скажите куда, в какой подфорум.
Pascal Ветвления Занятия в начальных классах отменяются в тех случаях, когда температура воздуха не выше –25 градусов, а также при ветре не менее 7м/с и температуре не выше – 20 градусов. По утренней сводке погоды определить, пойдут ли дети в школу. https://www.cyberforum.ru/ pascal/ thread1031642.html
585 / 488 / 371
Регистрация: 05.11.2013
Сообщений: 1,263
Записей в блоге: 6
08.12.2013, 14:00 0

Дано целое число А. Определить количество цифр в числе, которые меньше 5 - Pascal - Ответ 5455720

08.12.2013, 14:00. Показов 7689. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Antisfen как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
var n:longint; s:integer;
begin
 s:=0;
 write('n='); read (n);
 repeat
  if n mod 10 < 5 then inc(s);
  n:=n div 10;
 until n=0;
 write ('OTVET=',s);
 readln;
end.


Вернуться к обсуждению:
Дано целое число А. Определить количество цифр в числе, которые меньше 5 Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.12.2013, 14:00
Готовые ответы и решения:

Дано целое число А Определить количество четных цифр в числе
1. Дано целое число А. Определить количество четных цифр в числе. И блок-схему если не сложно)

Дано целое десятичное число a. Определить количество четных цифр в числе а
Помогите написать код С. Дано целое десятичное число a. Определить количество четных цифр в...

Дано целое число N. Определить максимальное минимальное произведение соседних цифр в числе N
Дано целое число N. Определить максимальное минимальное произведение соседних цифр в числе N.

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

1
08.12.2013, 14:00
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.12.2013, 14:00
Помогаю со студенческими работами здесь

Дано целое число N и набор из N целых чисел. Определить номера тех чисел наборе, которые меньше своего правого соседа, и количество К таких чисел.
Всем привет мне нужен исходник к етой задачи Дано целое число N и набор из N целых чисел....

Дано длинное целое число, содержащее не более 100 цифр Определить, есть ли в этом числе заданная цифра
Помогите решить 4. Дано длинное целое число, содержащее не более 100 цифр. Рассматривать цифры...

Дано натуральное число n. Определить количество цифр в числе n
Дано натуральное число n. Определить количество цифр в числе n.

Дано натуральное число n. Определить количество цифр в этом числе
Задача 3. Дано натуральное число n. Определить количество цифр в этом числе.

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru