Дано целое число. Подсчитать количество цифр в числе, значения которых больше заданной - Free Pascal - Ответ 3082413

Другие темы раздела
Free Pascal Вывести на экран график функции на заданном отрезке https://www.cyberforum.ru/ free-pascal/ thread586119.html Требуется вывести на экран график функции на заданном отрезке: y=3+2/x+3/(x*x). Заранее спасибо. uses graph; const xn=-4; xk=4; function F(x:real):real; begin F:=3+2/x+3/sqr(x); end; var mx,my,dx,y1:real; x:real; x0,y0,i:integer;	Free Pascal Разработать программу нахождения первого простого числа в матрице размерности MxN https://www.cyberforum.ru/ free-pascal/ thread585963.html Выполнить обработку массива большой размерности в соответствии с заданием. Массив размещать в оперативной памяти динамически. Элементы массива формировать, используя генератор случайных чисел....
Free Pascal Вводится массив. Определить, в каком из чисел наибольшая сумма всех его цифр Ребят помогите написать прогу в Free Pascal Вводится массив из N целых положительных чисел. Определить, в каком из чисел наибольшая сумма всех его цифр. Для подсчета суммы цифр числа использовать... type mas = array of integer; var i:integer; mas1:mas; k:integer; procedure chet( mas1 :mas;var k : integer); var summ,ost: real; mas2 : mas; i,max:integer;	Free Pascal Строковые данные. Нужно объяснение программы https://www.cyberforum.ru/ free-pascal/ thread586697.html program laba10; var a:array of byte; s:string; i:byte; p:real; d:integer; begin writeln('введите текст:'); readln(s); d:=length(s);
Free Pascal Динамические массивы. Дан массив записей из полей типа Char, Word, Byte. Преобразовать его в массив типа Longint FreePascal Выполнить обработку массивов в соответствии с заданием. Предусмотреть описание массивов как динамических. Само задание: Дан массив записей из полей типа Char, Word, Byte. Преобразовать... Вы бы хоть пояснение какое написали. Динамических массив - список? Что значит "преобразовать"? Можно завести второй список такого типа и перекинуть в него преобразованные элементы. Тогда в каком виде...	Free Pascal Одномерные массивы. Из значений исходного массива сформировать массив положительных и массив отрицательных элементов из значений произвольно заданного одномерного массива сформировать массив из положительных и массив из отрицательных элементов исходного массива. :gcray2: очень нужна ваша помощь.. uses crt; const nmax=100; var a,b,c: array of integer; i,j,k,n,p,s: integer; begin repeat write('n (ne bolee ',nmax,')='); readln(n); until n in ; writeln('Исходный массив'); j:=0; k:=0; https://www.cyberforum.ru/ free-pascal/ thread586767.html
Free Pascal Определить, имеется ли в массиве хотя бы одно нечетное отрицательное число дано натуральное число N и массив целых чисел а1, ... , аn . выяснить имеется ли в массиве а1, ... , аn хотя бы одно не четное отрицательное число и определить его местонахождение в массиве. var n,i,k:integer; a:array of integer; begin randomize; write('N= '); read(n); writeln('Массив:'); for i:=1 to N do begin a:=random(10)-10; write(a, ' '); https://www.cyberforum.ru/ free-pascal/ thread586781.html	Изобразить на плоскости область, в которой истинно указанное выражение Free Pascal I. Изобразить на плоскости (X, Y) область, в которой и только в которой истинно указанное выражение (X >= -1) and (X <= 0) and (Y >= -2) and (Y <= -X) or (X >= 0) and (X <= 1) and (Y >= -2) and (Y... uses graph; var xc,yc,n,i:integer; m,x,y:real; s:string; begin initgraph(xc,yc,''); xc:=getmaxX div 2; yc:=getmaxY div 2; m:=(yc-50)/3; setcolor(11);
Сформировать массив по заданной формуле. Найти сумму элементов массива Free Pascal Сформировать массив по формуле a= 5i-i^2. Найти сумму элементов массива. uses crt; var i,n,sum: integer; a: array of integer; begin clrscr; sum:=0; write('Размерность: '); readln(n); for i:=1 to n do begin	Free Pascal Нарисовать сферу с заданным радиусом Задается радиус. Нужно нарисовать как на этом примере - http://allmatematika.ru/page.php?18 В графике я жалкий нуб... Спасибо. https://www.cyberforum.ru/ free-pascal/ thread586513.html
Free Pascal Изобразить на экране электронное табло с посекундным отображением времени Написать программу «Таймер»: программа должна запросить текущее время, изобразить на экране электронное табло, на котором отображать посекундное изменение времени; через определенное время должен... uses crt; var h,m,s,n:integer; begin clrscr; repeat writeln('‡¤©вҐ вҐЄгйҐҐ ўаҐ¬п, збл, ¬Ёгвл, бҐЄг*¤л:'); readln(h,m,s); until(h in )and(m in )and(s in ); n:=s; clrscr; https://www.cyberforum.ru/ free-pascal/ thread586102.html	Free Pascal Как очистить то что вывела программа па экран? Частично или полностью! подключаете модуль Crt в теле программы команда clrscr; https://www.cyberforum.ru/ free-pascal/ thread585555.html

Другие темы раздела

Free Pascal Вывести на экран график функции на заданном отрезке https://www.cyberforum.ru/ free-pascal/ thread586119.html
Требуется вывести на экран график функции на заданном отрезке: y=3+2/x+3/(x*x). Заранее спасибо. uses graph; const xn=-4; xk=4; function F(x:real):real; begin F:=3+2/x+3/sqr(x); end; var mx,my,dx,y1:real; x:real; x0,y0,i:integer;

Free Pascal Разработать программу нахождения первого простого числа в матрице размерности MxN https://www.cyberforum.ru/ free-pascal/ thread585963.html
Выполнить обработку массива большой размерности в соответствии с заданием. Массив размещать в оперативной памяти динамически. Элементы массива формировать, используя генератор случайных чисел....

Free Pascal Вводится массив. Определить, в каком из чисел наибольшая сумма всех его цифр
Ребят помогите написать прогу в Free Pascal Вводится массив из N целых положительных чисел. Определить, в каком из чисел наибольшая сумма всех его цифр. Для подсчета суммы цифр числа использовать... type mas = array of integer; var i:integer; mas1:mas; k:integer; procedure chet( mas1 :mas;var k : integer); var summ,ost: real; mas2 : mas; i,max:integer;

Free Pascal Строковые данные. Нужно объяснение программы https://www.cyberforum.ru/ free-pascal/ thread586697.html
program laba10; var a:array of byte; s:string; i:byte; p:real; d:integer; begin writeln('введите текст:'); readln(s); d:=length(s);

Free Pascal Динамические массивы. Дан массив записей из полей типа Char, Word, Byte. Преобразовать его в массив типа Longint
FreePascal Выполнить обработку массивов в соответствии с заданием. Предусмотреть описание массивов как динамических. Само задание: Дан массив записей из полей типа Char, Word, Byte. Преобразовать... Вы бы хоть пояснение какое написали. Динамических массив - список? Что значит "преобразовать"? Можно завести второй список такого типа и перекинуть в него преобразованные элементы. Тогда в каком виде...

Free Pascal Одномерные массивы. Из значений исходного массива сформировать массив положительных и массив отрицательных элементов из значений произвольно заданного одномерного массива сформировать массив из положительных и массив из отрицательных элементов исходного массива. :gcray2: очень нужна ваша помощь.. uses crt; const nmax=100; var a,b,c: array of integer; i,j,k,n,p,s: integer; begin repeat write('n (ne bolee ',nmax,')='); readln(n); until n in ; writeln('Исходный массив'); j:=0; k:=0; https://www.cyberforum.ru/ free-pascal/ thread586767.html

Free Pascal Определить, имеется ли в массиве хотя бы одно нечетное отрицательное число дано натуральное число N и массив целых чисел а1, ... , аn . выяснить имеется ли в массиве а1, ... , аn хотя бы одно не четное отрицательное число и определить его местонахождение в массиве. var n,i,k:integer; a:array of integer; begin randomize; write('N= '); read(n); writeln('Массив:'); for i:=1 to N do begin a:=random(10)-10; write(a, ' '); https://www.cyberforum.ru/ free-pascal/ thread586781.html

Изобразить на плоскости область, в которой истинно указанное выражение Free Pascal
I. Изобразить на плоскости (X, Y) область, в которой и только в которой истинно указанное выражение (X >= -1) and (X <= 0) and (Y >= -2) and (Y <= -X) or (X >= 0) and (X <= 1) and (Y >= -2) and (Y... uses graph; var xc,yc,n,i:integer; m,x,y:real; s:string; begin initgraph(xc,yc,''); xc:=getmaxX div 2; yc:=getmaxY div 2; m:=(yc-50)/3; setcolor(11);

Сформировать массив по заданной формуле. Найти сумму элементов массива Free Pascal
Сформировать массив по формуле a= 5i-i^2. Найти сумму элементов массива. uses crt; var i,n,sum: integer; a: array of integer; begin clrscr; sum:=0; write('Размерность: '); readln(n); for i:=1 to n do begin

Free Pascal Нарисовать сферу с заданным радиусом Задается радиус. Нужно нарисовать как на этом примере - http://allmatematika.ru/page.php?18 В графике я жалкий нуб... Спасибо. https://www.cyberforum.ru/ free-pascal/ thread586513.html

Free Pascal Изобразить на экране электронное табло с посекундным отображением времени Написать программу «Таймер»: программа должна запросить текущее время, изобразить на экране электронное табло, на котором отображать посекундное изменение времени; через определенное время должен... uses crt; var h,m,s,n:integer; begin clrscr; repeat writeln('‡*¤*©вҐ вҐЄгйҐҐ ўаҐ¬п, з*бл, ¬Ё*гвл, бҐЄг*¤л:'); readln(h,m,s); until(h in )and(m in )and(s in ); n:=s; clrscr; https://www.cyberforum.ru/ free-pascal/ thread586102.html

Free Pascal Как очистить то что вывела программа па экран? Частично или полностью! подключаете модуль Crt в теле программы команда clrscr; https://www.cyberforum.ru/ free-pascal/ thread585555.html

Дано целое число. Подсчитать количество цифр в числе, значения которых больше заданной - Free Pascal - Ответ 3082413

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
n,m,col:longint;
 
begin
write('N= '); read(n);
write('Цифра: '); read(m);
while(n>0) do begin
if n mod 10 >m then inc(col);
n:=n div 10;
end;
writeln('Результат: ', col);
end.

Вернуться к обсуждению:
Дано целое число. Подсчитать количество цифр в числе, значения которых больше заданной Free Pascal

Новые блоги и статьи Все статьи Все блоги /
Сопоставление с образцом (Pattern Matching) в Python: Списки и словари py-thonny 19.03.2025 Программисты любят, когда код говорит сам за себя. Представьте, что вы можете просмотреть структуру данных и мгновенно понять, что с ней делать — без сложных условий и вложенных проверок. Именно эту. . .	Работа с метаданными EXIF и JPEG в JavaScript run.dev 19.03.2025 Работа с изображениями в веб-разработке нередко выходит за рамки простого отображения картинки. Современные задачи требуют глубокого понимания структуры файлов и умения манипулировать их внутренними. . .	Чеклист для Kubernetes в продакшене: Лучшие практики для SRE Mr. Docker 19.03.2025 Когда сталкиваешься с запуском Kubernetes в продакшене, невольно задаешься вопросом: почему то, что так гладко работало в тестовой среде, вдруг начинает вызывать головную боль на боевых системах?. . .	Разработка продвинутого ИИ в Unity с использованием Behavior Graph GameUnited 19.03.2025 В разработке игр искусственный интеллект персонажей часто становится тем элементом, который превращает хорошую игру в выдающуюся. До недавнего времени разработчикам под Unity приходилось либо писать. . .	Словари в Python: методы работы, оптимизация, сериализация py-thonny 19.03.2025 Каждый хотя бы раз сталкивался с необходимостью хранить связанные данные, где важна не только сама информация, но и их взаимосвязь. В дебрях Python словари — это тот универсальный инструмент, который. . .
Реализация паттерна CQRS с Event Sourcing в PHP Jason-Webb 19.03.2025 CQRS (Command Query Responsibility Segregation) — это архитектурный паттерн, который разделяет операции чтения и записи данных в приложении. Если вы столкнулись с ситуацией, когда ваше PHP-приложение. . .	std::span в C++: Подпредставления и срезы NullReferenced 18.03.2025 Если вы когда-нибудь работали с большими объемами данных в C++, то наверняка сталкивались с необходимостью манипулировать отдельными частями массивов или контейнеров. Традиционные подходы часто. . .	std::span в C++: Доступ к элементам и итерирование NullReferenced 18.03.2025 В C++ каждый разработчик сталкивается с проблемой эффективного управления последовательностями данных. Представьте: вы работаете с массивом, передаете его в функцию, а затем в другую, и каждый раз. . .	Утечки памяти в C# UnmanagedCoder 18.03.2025 Когда мы говорим о разработке приложений на C#, то часто успокаиваем себя мыслью, что сборщик мусора решит все наши проблемы с памятью. "Память управляется автоматически" — эта мантра прочно засела в. . .	std::span в C++: Введение в невладеющее представление NullReferenced 18.03.2025 С появлением стандарта C++20 у нас появился новый инструмент — std::span, который представляет собой невладеющее представление для работы с последовательностями данных. std::span — это легковесный. . .

Новые блоги и статьи

Все статьи

Все блоги /

Сопоставление с образцом (Pattern Matching) в Python: Списки и словари

py-thonny 19.03.2025

Программисты любят, когда код говорит сам за себя. Представьте, что вы можете просмотреть структуру данных и мгновенно понять, что с ней делать — без сложных условий и вложенных проверок. Именно эту. . .

Работа с метаданными EXIF и JPEG в JavaScript

run.dev 19.03.2025

Работа с изображениями в веб-разработке нередко выходит за рамки простого отображения картинки. Современные задачи требуют глубокого понимания структуры файлов и умения манипулировать их внутренними. . .

Чеклист для Kubernetes в продакшене: Лучшие практики для SRE

Mr. Docker 19.03.2025

Когда сталкиваешься с запуском Kubernetes в продакшене, невольно задаешься вопросом: почему то, что так гладко работало в тестовой среде, вдруг начинает вызывать головную боль на боевых системах?. . .

Разработка продвинутого ИИ в Unity с использованием Behavior Graph

GameUnited 19.03.2025

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

Словари в Python: методы работы, оптимизация, сериализация

py-thonny 19.03.2025

Каждый хотя бы раз сталкивался с необходимостью хранить связанные данные, где важна не только сама информация, но и их взаимосвязь. В дебрях Python словари — это тот универсальный инструмент, который. . .

Реализация паттерна CQRS с Event Sourcing в PHP

Jason-Webb 19.03.2025

CQRS (Command Query Responsibility Segregation) — это архитектурный паттерн, который разделяет операции чтения и записи данных в приложении. Если вы столкнулись с ситуацией, когда ваше PHP-приложение. . .

std::span в C++: Подпредставления и срезы

NullReferenced 18.03.2025

Если вы когда-нибудь работали с большими объемами данных в C++, то наверняка сталкивались с необходимостью манипулировать отдельными частями массивов или контейнеров. Традиционные подходы часто. . .

std::span в C++: Доступ к элементам и итерирование

NullReferenced 18.03.2025

В C++ каждый разработчик сталкивается с проблемой эффективного управления последовательностями данных. Представьте: вы работаете с массивом, передаете его в функцию, а затем в другую, и каждый раз. . .

Утечки памяти в C#

UnmanagedCoder 18.03.2025

Когда мы говорим о разработке приложений на C#, то часто успокаиваем себя мыслью, что сборщик мусора решит все наши проблемы с памятью. "Память управляется автоматически" — эта мантра прочно засела в. . .

std::span в C++: Введение в невладеющее представление

NullReferenced 18.03.2025

С появлением стандарта C++20 у нас появился новый инструмент — std::span, который представляет собой невладеющее представление для работы с последовательностями данных. std::span — это легковесный. . .