Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal паровозик и рельсы Паровоз двигается по рельсам, из трубы идет дым. https://www.cyberforum.ru/ turbo-pascal/ thread391094.html	Дана строка. Преобразовать все строчные1\|прописные2 латинские3\|русские4 буквы в прописные1\|строчные2 Turbo Pascal Дана строка. Преобразовать все строчные1\|прописные2 латинские3\|русские4 буквы в прописные1\|строчные2
Turbo Pascal нарисовать Нарисовать прямоугольник, который, вращающийся вокруг своего центра, двигается по синусоиде вдоль екрана. https://www.cyberforum.ru/ turbo-pascal/ thread391092.html	Turbo Pascal Сумма векторов ПОМОГИТЕ ПОЖАЛУЙСТА https://www.cyberforum.ru/ turbo-pascal/ thread391091.html Даны три вектора. Составить программу с процедурой, вычисляющей сумму векторов. Объявить запись, соответствующую вектору в пространстве.
Turbo Pascal Дан одномерный массив из 10 целых чисел. Подсчитайте количество различных чисел в нем Дан одномерный массив из 10 целых чисел. Подсчитайте количество различных чисел в нем.	Turbo Pascal Отсортировать ведомости о факультетах https://www.cyberforum.ru/ turbo-pascal/ thread391069.html засыпался на записях задан масив записей, который имеет ведомости о названии факультета, название специальности. создать новый масив, который дополненый записями, введенных с клавиатуры и отсортированый по факультетах.
Turbo Pascal Вычислить среднее арифметическое значение тех элементов одномерного массива, которые попадают в интервал от -2 до 10 https://www.cyberforum.ru/ turbo-pascal/ thread391067.html Вычислить среднее арифметическое значение тех элементов одномерного массива, которые попадают в интервал от -2 до 10.	Turbo Pascal Составить программу вывода всех трехзначных чисел, сумма цифр которого равна данному натуральному числу Составить программу вывода всех трехзначных чисел, сумма цифр которого равна данному натуральному числу.
*Turbo Pascal Вычислить: a(a+1)...(a+n-1)** https://www.cyberforum.ru/ turbo-pascal/ thread391057.html Даны действительное а и натуральное n. Вычислить: a*(a+1)...(a+n-1);	Turbo Pascal Дан номер года. Найти число дней в этом году Дан номер года. Найти число дней в этом году. Указание. В современном (григорчанском) календаре каждый год1 номер которого делится на 4, является високосным, за исключением тех которые деляться на 100 и не делится на 400. На пример , 1900 год-не високосный ,2000 год-високосный. https://www.cyberforum.ru/ turbo-pascal/ thread391054.html
Turbo Pascal Выбрать и напечатать лучший результат. В компьютер поступают результаты соревнований по плаванию для трех спортсменов. Выбрать и напечатать лучший результат.	Turbo Pascal Проверьте превышает ли 200 сумма квадратов двух натуральных чисел Помогите составить программу. Проверьте превышает ли 200 сумма квадратов двух натуральных чисел https://www.cyberforum.ru/ turbo-pascal/ thread391038.html

log(n)

110 / 110 / 72

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

Сообщений: 227

24.11.2011, 20:31

Найти количество делителей каждого из целых чисел от 120 до 140 - Turbo Pascal - Ответ 2209029

24.11.2011, 20:31. Показов 9112. Ответов 2

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

Ответ

Pascal

var x, y, k:integer; 
begin 
for x:=120 to 140 do 
begin 
k:=0; 
writeln('Делители числа ', x, ':'); 
for y:=1 to x do 
if x mod y=0 then begin write( y, ' '); k:=k+1 end; 
writeln('Количество делителей числа ', x, ' равно ', k); 
end; 
end.

Вернуться к обсуждению:
Найти количество делителей каждого из целых чисел от 120 до 140 Turbo Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

24.11.2011, 20:31

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

Найти количество делителей каждого из целых чисел от 120 до 140
помогите с задачей:Найти количество делителей каждого из целых чисел от 120 до 140.плизззз

Найти количество делителей каждого из целых чисел от 120 до 140
Найти количество делителей каждого из целых чисел от 120 до 140.

Найти количество делителей каждого из целых чисел от 120 до 140.
Найти количество делителей каждого из целых чисел от 120 до 140.

	24.11.2011, 20:31

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

24.11.2011, 20:31

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

Найти количество делителей каждого из целых чисел от 120 до 140
Найти количество делителей каждого из целых чисел от 120 до 140. вот код но не работает( ...

Найти делители целых чисел от 120 до 140
Найдите количество делителей каждого из целых чисел от 120 до 140. Помогите сделать на Visual...

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

Найти количество делителей каждого из целых чисел от 480 до 500
Найти количество делителей каждого из целых чисел от 480 до 500. Вывести результат в виде таблицы...

Найти количество делителей каждого из целых чисел от 190 до 210 (отформатировать вывод результата)
Ребят , помогите , не могу сделать аккуратный вывод столбцов в проге , все сделал кроме столбцов ,...

Найти сумму делителей каждого из целых чисел от 50 до 70
Задача такая: "Найти сумму делителей каждого из целых чисел от 50 до 70" И в этом коде у меня...

Наверх