Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Определить самое длинное и самое короткое слово в введенной строке. Помогите пожалуйста написать программку, очень надо:( Задача: Определить самое длинное с самое короткое слово в введенной строке. Если можно то с комментариями, плииииззз, просто с программированием у меня туговато. Помогите, Help me!!!:'( https://www.cyberforum.ru/ pascal/ thread18968.html Найти все числа, у которых старшая значащая десятичная цифра есть 9 Pascal
В заданном вещественном массиве найти все числа,у которых старшая значащая дестичная цифра есть 9(числа сильно различаются по величине). \например число 892 тут есть цифра 9 значит выводим его\
Pascal Найти значения максимального из элементов массива, которые имеют четные номера. В массиве, вещественных чисел, 20 элементов. Найти значения максимального из элементов массива, которые имеют четные номера. https://www.cyberforum.ru/ pascal/ thread18962.html Pascal Строка символов состоит из букв А, В и С. Разработать рекурсивную процедуру, преобразующую данную строку по правилам: https://www.cyberforum.ru/ pascal/ thread18959.html
Строка символов состоит из букв А, В и С. Разработать рекурсивную процедуру, преобразующую данную строку по правилам: а) удаляет четыре подряд идущих букв А; б) удаляет из последовательности ВАВА одну пару ВА; в) удаляет комбинацию АВС. Преобразования выполнять до тех пор, пока ни одной из перечисленных комбинаций не останется. =-O Добавлено через 21 час 54 минуты 36 секунд :(
Напечатать имена всех людей, возраст которых равен минимальному Pascal
program cyb_39; uses Crt; type person = record name: string; age: 1..200; end; list = file of person; var
Pascal Требуется помощь в решении задачки - "Шифратор" https://www.cyberforum.ru/ pascal/ thread18937.html
Люди добрые помогите разобраться с задачкой Условие: Переписать слова во входном тексте наоборот. У меня с массивами туго.... смог только полностью текст перевернуть... ____ x:=s; {s - входной текст} k:=length(x); y:=x; for i:=1 to k do
Pascal Используя один просмотр текстового файла, вывести его строки в обратном порядке Собственно вот: используя один просмотр текстового файлаб вывести его строки в обратном порядке (в начале выводится последняя строка исходного файла). Плиzz помогите ... https://www.cyberforum.ru/ pascal/ thread18932.html Симметричная матрица Pascal
--
Pascal Исправить программу Здравствуйте) У меня проблема с одной из программ.. Есть код программы, всё работает как надо, почти как надо.. Ввод значений массива осуществляется рандомно, а нужно чтобы осуществлялся с консоли или из файла (по выбору пользователя).. В принципе дело пустяковое, но заметил только сейчас, а нужно срочно.. Действительно срочно.. program odnomerniymassiv; uses crt; const n=15; var a:array of... https://www.cyberforum.ru/ pascal/ thread18926.html Pascal В матрице найти наименьшие элементы в каждом столбце и поместить их на главную диагональ https://www.cyberforum.ru/ pascal/ thread18921.html
Здравствуйте. Если это возможно,хотелось бы попросить помощи в рещении нескольких задач. Впринципе все не сложные. Просто не успеваю,да и не оч хорошо поняла тему. Вот к примеру: 1)даны массивы a(10),b(11),c(12) вещестивенных чисел.Обнулить и распечатать тот массив чьё произведение положительных элементов минимально.Распечатать произведение для каждого массива 2)в матрице...
Pascal Произведение четных цифр
Пожалуйста подскажите где ошибка Задача. Найти произведение всех четных цифр. Как мне кажется вроде все правильно указал, а нет, где-то ошибаюсь :( Program Number; var n,i,k:integer; P,R:real;
Pascal Найти сумму знакопеременного ряда https://www.cyberforum.ru/ pascal/ thread18911.html
Мне в МАИ дали курсовик сам брал академ всё позабывал не знаю что и как делать =( помогите пожалуйста ! ! ! Заранее благодарен Задания: 1) Найти сумму знакопеременного ряда Y=1+(X^2)/2!-(X^4)/3!+(X^6)/4!-... при /Х/<=1 Расчёт продолжать до тех пор, пока приращение |Y| будет больше заданной точности е, е<=|X|. На экран вывести результаты с соответсвующими комментариями. Это...
25 / 20 / 4
Регистрация: 13.03.2008
Сообщений: 79
19.12.2008, 20:24 0

Определить введенное число простое или составное - Pascal - Ответ 85023

19.12.2008, 20:24. Показов 9509. Ответов 1
Метки (Все метки)

Ответ

Держи код проги:
Код
program cyb_40;
uses
 Crt;
var
 i, n: longint;
begin
 ClrScr;
 write('Vvedite chislo: ');
 readln(n);
 for i:= 2 to (n div 2) do
  if (n mod i) = 0 then
   begin
    writeln('Chislo ', n, ' sostavnoe');
    readln;
    exit;
   end;
 writeln('Chislo ', n, ' prostoe');
 readln;
end.


Вернуться к обсуждению:
Определить введенное число простое или составное Pascal
3
Заказать работу у эксперта
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
19.12.2008, 20:24
Готовые ответы и решения:

Что больше - минимальное простое число в матрице или максимальное составное?
4. Дана матрица А(3,4). Что больше: минимальное простое число в ней или максимальное составное?...

Создать программу, которая найдет наименьшее число, который взаимное простое число с 60 и больше, чем введенное число
Создать программу, которая найдет наименьшее число, который взаимное простое число с 60 и больше,...

Нужно определить простое число или нет
Помогите кто может написать программу, которая могла бы определить простое число или нет (что бы...

Определить, простое или составное введённое число
Помогите создать программу,которая при введении любого числа показывает: простое или составное это...

1
19.12.2008, 20:24
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
19.12.2008, 20:24
Помогаю со студенческими работами здесь

Работа с файлом. Проверка чисел - составное или простое
Добрый вечер! Прошу помощи в решении задачи. ТЗ: Имеется исходный текстовый файл, в котором...

Определить простое число или нет
Нужна помощь. Как написать программу что бы она определяла какое число вводишь простое или нет.

Определить, введенное число кратно 3 или нет
Напишите программу, запрашиваемую число и дающее заключение введенное число кратно 3 или нет. И все...

Простое или составное
Недавно создавал тему по поводу задачки из олимпиады. Вот еще одна. Решить я ее решил но опять же...

0
Новые блоги и статьи
Как обучить нейросеть создания картинок на Python
bytestream 24.01.2025
В эпоху цифровых технологий искусственный интеллект становится неотъемлемой частью творческого процесса. Особое место в этой области занимает разработка и обучение нейронных сетей для создания. . .
Как обучить нейросеть генерации текста на Python
bytestream 24.01.2025
В современном мире искусственный интеллект и машинное обучение становятся неотъемлемой частью многих технологических решений. Одной из наиболее интересных и востребованных задач в этой области. . .
Машинное обучение на Python
bytestream 24.01.2025
Введение в машинное обучение на Python Машинное обучение представляет собой одну из наиболее динамично развивающихся областей информационных технологий, которая позволяет компьютерным системам. . .
Как удалить вирус-майнер с компьютера
hw_wired 24.01.2025
Вирусы-майнеры стали одной из наиболее серьезных угроз для пользователей компьютеров. Эти вредоносные программы тайно используют вычислительные ресурсы зараженного устройства для добычи криптовалюты. . .
Что такое веб-сервер, для чего он нужен и как работает
bytestream 24.01.2025
В современную эпоху цифровых технологий веб-сервер является фундаментальным компонентом интернет-инфраструктуры, обеспечивающим функционирование множества онлайн-сервисов и веб-сайтов. Этот. . .
Как в цикле for перебрать все элементы в словаре в Python
bytestream 24.01.2025
Словари в Python представляют собой мощные структуры данных, которые позволяют хранить информацию в формате ключ-значение. Эта особенность делает их незаменимыми при работе с данными, где требуется. . .
Как отменить rebase в Git
hw_wired 24.01.2025
Git rebase представляет собой мощный инструмент для управления историей коммитов в системе контроля версий Git. Этот механизм позволяет разработчикам изменять последовательность, комбинировать или. . .
Как поменять цвет input placeholder с помощью CSS
bytestream 24.01.2025
В веб-разработке оформление элементов пользовательского интерфейса играет ключевую роль в создании привлекательного и интуитивно понятного дизайна. Особое внимание уделяется формам ввода данных, где. . .
Как перебрать все значения в перечислении (enum) в C#
bytestream 24.01.2025
Перечисление (enum) в языке программирования C# представляет собой специальный тип данных, который позволяет определить набор именованных констант. Этот мощный инструмент особенно полезен, когда. . .
Как обойтись без проверки на null, чтобы избежать NullPointerExce­ption в Java
bytestream 24.01.2025
NullPointerException (NPE) является одним из самых распространенных исключений в Java, создающих серьезные проблемы при разработке программного обеспечения. Данное исключение возникает при попытке. . .
Что лучше использовать в href ссылок в JavaScript: "#" или "javascript:voi­­d(0)­"
bytestream 24.01.2025
При разработке веб-приложений важную роль играет правильное использование HTML-ссылок в сочетании с JavaScript. Одним из ключевых аспектов является выбор корректного значения атрибута href для. . .
Как узнать индекс элемента списка по его значению в Python
hw_wired 24.01.2025
При работе с коллекциями данных в Python часто возникает необходимость не только манипулировать элементами списка, но и определять их точное местоположение. Индекс элемента представляет собой. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru