Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal блок-схема к "интегрирование по методу трапеции" unit Dec_Integral; interface uses Crt, Dos; type TDec_Integral=object function Fun(x:real):real; function M_Trapecii(a,b,e:real):real; procedure Integration; constructor Init; destructor Done; https://www.cyberforum.ru/ pascal/ thread118520.html	Pascal Составить программу поиска наибольшего по модулю элемента массива, а также индекса этого элемента Помогите написать программу и составить блок схему. Дано массив А и натуральное число n. Составить программу поиска наибольшего по модулю элемента массива, а также индекса этого элемента. Заранее спасибо.
Pascal Сортировка элементов матрицы https://www.cyberforum.ru/ pascal/ thread118511.html Здравствуйте! Помогите решить, пожалуйста. С помощью генератора случайных чисел сформировать квадратную матрицу размерностью от 5 до 10., диапазон . Вывести её на экран. Далее каждую строку матрицы отсортировать следующим образом: те элементы, которые расположены НИЖЕ главной диагонали, отсортировать по неубыванию, а те, которые расположены НА и ВЫШЕ главной диагонали - по невозрастанию. Метод...	Pascal про Спортсменов...) Создайте программу, которая запрашивает данные и сохраняет их в файле. Создайте программу, которая считывает информацию из файла и выводит на экран записи, удовлетворяющие данному условию. Данные. 10 спортсменов-пятиборцев, для которых известны: фамилия, баллы, набранные спортсменом в каждом из 5 видов состязаний. Условие. Вывести имя чемпиона. https://www.cyberforum.ru/ pascal/ thread118502.html
Массив 7х7 Pascal Создайте программу, которая заполняет квадратный массив 7х7 числами по следующему правилу: - элементы, расположенные на побочной диагонали, равны 1; - элементы, расположенные выше побочной диагонали, равны 0; - ниже побочной диагонали находятся случайные двузначные числа. Выведите созданный массив на экран. В последней строке этого массива найдите максимальный элемент.	Pascal Двумерный массив https://www.cyberforum.ru/ pascal/ thread118495.html В массиве X(n,m) найти: а) последний положительный элемент; б) разность между наибольшим и наименьшим элементами; в) заменить последний положительный элемент на найденную разность.
Pascal Построить на экране график функции. Абсцисса (x) изменяется в диапазоне от -5 до +5 Построить на экране график функции. Абсцисса (x) изменяется в диапазоне от -5 до +5. Масштаб по ординате (y) подбирать автоматически так, чтобы график был как можно лучше виден на экране. Нарисовать систему координат. y=sqrt(x+10)-5 https://www.cyberforum.ru/ pascal/ thread118490.html	Pascal задание на Двумерный массив Дан двумерный массив 3*3. Вычислить произведение элементов каждого столбца. Помогите, что-то никак не получается(
Pascal Написать програму, которая выводит круговую диаграму отражающую товарооборот (в %) книжного магазина https://www.cyberforum.ru/ pascal/ thread118485.html Написать програму, которая выводит круговую диаграму отражающую товарооборот (в %) книжного магазина. Исходные данные (объём продаж в рублях по категориям: книги, журналы, открытки и канцтовары) вводятся во время работы програмы.	Pascal Различить слова по минимальному количеству букв https://www.cyberforum.ru/ pascal/ thread118479.html В строке малыми латинскими буквами записаны слова, разделяющиеся запятыми. Первые буквы некоторых слов могут совпадать. Указать минимальное количество первых букв, по которым можно различить слова из заданного списка. Помогите пожалуйста кто сможет, очень надо!!!
Исследовать функцию Pascal Исследовать функцию с помощью операторов while и repeat. Вычислить количество точек графика функции, попадающих в область, ограниченную равнобедренным прямоугольным треугольником с катетами длиной a, параллельными осям координат и пересекающимися в точке (x1, y1). Никак не могу разобраться..	Pascal Написать программу, которая высчитывает количество чисел из диапазона [m, n], в записи которых половина или более нулей Написать программу, которая высчитывает количество чисел из диапазона , в записи которых половина или более нулей. https://www.cyberforum.ru/ pascal/ thread118460.html

yanyk1n

4342 / 1474 / 680

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

Сообщений: 5,310

18.04.2010, 15:36

Найти произведение цифр числа - Pascal - Ответ 669411

18.04.2010, 15:36. Показов 7108. Ответов 6

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

Ответ

Pascal

uses crt;
var n,i,k,a:integer;
 
begin
 clrscr;
 write('N -> ');
 readln(N);
 k := 0;
 for i:=1 to N do
 begin
  write(i,'-е число -> ');
  readln(a);
  if a<0 then inc(k);
 end;
 writeln('Отрицательных - ',k);
 readln;
end.

Добавлено через 1 минуту
4)

Pascal

uses crt;
var x,y:real;
 
begin
 clrscr;
 write('X -> ');
 readln(X);
 y := sqr(sqr(sqr(x))) + 2 * sqr(sqr(x)) + 3 * sqr(x) + 4;
 writeln('Y=',y:0:4);
 readln;
end.

Вернуться к обсуждению:
Найти произведение цифр числа Pascal

Следующий ответ

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

IT_Exp

Эксперт

34794 / 4073 / 2104

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

Сообщений: 32,602

Блог

18.04.2010, 15:36

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

Найти кол-во цифр числа, больших 6 и произведение цифр, не удовлетворяющих данному критерию
Дано натуральное число. Написать программу, котрая будет находить: а)кол-во цифр этого числа,...

Найти такое число, что сумма его цифр превосходит произведение цифр этого же числа на 1
сумма цифр заданного четырехзначного N превосходит произведение цифр этого же числа на 1. ПОМОГИТЕ...

Найти произведение цифр натурального числа n.
ветвление 14.1 Написать программу, которая по заданным трем числам определяет, является ли сумма...

Найти произведение цифр k значного числа
Помогите пожалуйста создать программу которая будет вычислять произведение цифр k значного числа

	18.04.2010, 15:36

BasicMan

Эксперт

29316 / 5623 / 2384

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

Сообщений: 30,364

Блог

18.04.2010, 15:36

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

Найти произведение цифр заданного двузначного числа.
Найти произведение цифр заданного двузначного числа.

Найти произведение цифр заданного четырехзначного числа
Экзаменационный билет № 1 2. Составить программу для вычисления суммы: 1!+2!+3!+…+n! (n<=15)...

Найти произведение цифр заданного четырехзначного числа
Задача - Найти произведение цифр заданного четырехзначного числа Как представить в схеме данное...

Найти произведение цифр заданного четырехзначного числа
Написать программу, которая находит произведение цифр заданного четырехзначного числа. У меня...

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

Наверх