Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Матрица Помогите пожалуйста! Составьте программу упорядочивающую по убыванию элементы каждого столбца матрицы с. заполнение массива осуществить с клавиатуры https://www.cyberforum.ru/ turbo-pascal/ thread1047230.html	Turbo Pascal Нужно составить программу на паскали на Олимпиаду Составить решение задачи на паскале.. Сама задача : Составить программу которая из четырёхзначного числа создает новое двухзначное число первая цифра которого будет больше из первой и 2 цифры исходного числа , а вторая цифра будет меньшей из третей и четвёртой. Зарание спасибо..) Олимпиада просто ..=(
Turbo Pascal Деление длинных чисел Привет! Нужно дополнить программу, чтобы выводилось частное этих факториалов. Var a,a2:array of int64; i,j,b,t,n,c,i2,j2,b2,t2,c2:longint; x,x2:int64; begin clrscr; https://www.cyberforum.ru/ turbo-pascal/ thread1047224.html	Turbo Pascal Блок-схема по коду программы Здравствуйте,помогите пожалуйста нарисовать блок схему по программе: uses crt; type matr=array of real; procedure Swap(var a,b:real); {процедура обмена двух элементов} var tmp:real; begin tmp:=a; a:=b; b:=tmp; end; https://www.cyberforum.ru/ turbo-pascal/ thread1047220.html
Обратиться к записи Turbo Pascal допустим, у нас есть записи например имя студента группа курс так вот что нужно написать, чтобы обратится к записи? что бы выполнить с ней действие? приведите с примером пожалуйстаа	Turbo Pascal Массив, зверьки на ферме Решите пожалуйста массивы больное место у меня ) Задача: Каждому пушистому зверьку на звероферме полагается стакан молока, если его возраст A месяцев или B грамм. Написать программу, которая определит, сколько литров молока нужно завести на звероферму (1 стакан = 0,2 литра). Общее число зверьков на звероферме, а так же значения A и B вводятся с клавиатуры. Для решения использовать два... https://www.cyberforum.ru/ turbo-pascal/ thread1047186.html
Turbo Pascal Строковый тип https://www.cyberforum.ru/ turbo-pascal/ thread1047165.html По этому заданию будет зачет , а я даже не врубился как что делать ( Задача: Дан текст, включающий русские буквы, английские буквы, и цифры(прописные и строчные буквы). Подсчитать чего больше в тексте больше - русских букв или английских или же цифр.	Решить задание Turbo Pascal Вводится последовательность положительных целых чисел,за которой следует 0(признак последовательности).Определить сумму чисел,их количество,минимальное и максимальное число с их порядковыми номерами среди тех введённых чисел,которые обладают следующими свойствами:оканчиваются на цифру нуль.
Turbo Pascal Дана прямоугольная матрица чисел Дана прямоугольная матрица чисел.Найти сумму элементов каждой строки. https://www.cyberforum.ru/ turbo-pascal/ thread1047162.html	Turbo Pascal Вводятся действительные a и x и натуральное число n https://www.cyberforum.ru/ turbo-pascal/ thread1047161.html Вводятся действительные a и x и натуральное число n Вычислить Y; Y=x+x^2+x^3+...+x^n.
Дано 2 массива по 10 чисел в каждом Turbo Pascal Дано 2 массива по 10 чисел в каждом.Найти наименьшее среди тех чисел первого массива,которые не входят во второй массив,считая,что хотя бы одно такое число есть.	Turbo Pascal Сдвинуть массив циклически на один элемент влево Дан массив целых чисел.Сдвинуть его циклически на один элемент влево https://www.cyberforum.ru/ turbo-pascal/ thread1047154.html

Puporev

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

64300 / 47595 / 32743

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

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

18.12.2013, 19:23

Найдите минимальный делитель числа, который больше единицы - Turbo Pascal - Ответ 5518299

18.12.2013, 19:23. Показов 2304. Ответов 2

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

Ответ

А при чем тут массив?

Pascal

var n,a:integer;
begin
write('n=');
readln(n);
a:=2;
while n mod a<>0 do inc(a);
write('Íàèìåíüøèé äåëèòåëü=',a);
readln
end.

Вернуться к обсуждению:
Найдите минимальный делитель числа, который больше единицы Turbo Pascal

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

18.12.2013, 19:23

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

Вывести минимальный из элементов набора, который больше заданного числа
Даны целые числа N и B. Задать N элементов одномерного массива. Вывести минимальный из тех...

Минимальный делитель числа
Дано натуральное число n>1. Выведите его наименьший делитель, отличный от 1. Решение оформите в...

Даны три натуральных числа. Найдите их наибольший делитель.
Даны три натуральных числа. Найдите их наибольший делитель.

Найдите самый маленький натуральный делитель числа x, отличный от 1 (2 <= x <= 30000)
Найдите самый маленький натуральный делитель числа x, отличный от 1 (2 <= x <= 30000). Данные...

	18.12.2013, 19:23

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

18.12.2013, 19:23

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

Напечатать для каждого числа от M до N его минимальный делитель
Помогите с задачкой. Надо напечатать для каждого числа от M до N его минимальный делитель, не...

Найдите наибольший общий делитель (НОД) одномерного масива натурального числа A[N].
Найдите наибольший общий делитель (НОД) одномерного масива натурального числа A.

Напечатать для каждого числа от M до N его минимальный простой делитель
Напечатать для каждого числа от M до N его минимальный простой делитель. Заранее спасибо :)

Напечатать для каждого числа от M до N его минимальный делитель, не равный 1
Напечатать для каждого числа от M до N его минимальный делитель, не равный 1

Наверх