сервис вопросов и ответовСрочно решите пожалуйста. В turbo pascal. Выведите на экран вче числа от 1 до N , у которых 4 делителя. Заранее огромное спасибо.
5-9 класс|
|
SupremeGerl
05 сент. 2014 г., 18:48:27 (9 лет назад)
Lerkaaaa
05 сент. 2014 г., 21:26:52 (9 лет назад)
var a:array [1..100] of integer;
i,n,j:integer;
Begin
read(n);
for i:= 1 to n do
begin
for j := 1 to i do
if i mod j = 0 then a[i]:=a[i]+1;
if a[i]=4 then writeln(i);
end;
End.
Ответить
Другие вопросы из категории
Помогите, пожалуйста, не понимаю, как сделать: из слогов бор кос гон ход рог бег мол вар жар подберите такой, чтобы он был последним слогом для первого
слова и первым для второго. Слова такие: 1. по( )ан
2. по( )гон
3. по( )ожа
4. по( )ок
Мне главное понять, как делать
Читайте также
Задание 4.Составте программу ,выводящую на экран числа от 1 до 10 , по одному числу в строке.
Задание 5.Дополните программу из задания 4 так , чтобы на экран выводились числа от 1 до 10,а также квадраты и кубы этих чисел в следующем виде:
1 1 1
2 4 8
3 9 27
... ... ...
10 100 1000
ПОМОГИТЕ ПОЖАЛУЙСТА,ЗАДАНИЕ 4 ПИСАТЬ НЕ НУЖНО !ПОСТАВЛЮ ЛУЧЩИЙ ОТВЕТ И "СПАСИБО"
ИНФОРМАТИКА,РЕШИТЬ ЗАДАЧИ ,помогите решить,пожалуйста,хоть несколько!
1.Даны 3 целых числа-А,В,С. Вычислить их сумму и произведение
2.Вывести на экран случайное число от 0 до 10
3.Вывести на экран двузначное случайное число
4. Найти сумму цифр двузначного числа
1. Определить принадлежит ли введенное с клавиатуры число интервалу (0,5)
2.Ввести число с клавиатуры. Если оно положительно,то найти квадрат этого числа,если отрицательно-модуль.
3.Найти большее из двух чисел ,заданных случайным образом из интервала [-7;23]
4.Ввести двузначное число с клавиатуры. Четна ли сумма его цифр?
5. Ввести трехзначное число. Расположить цифры в порядке возрастания
1 Задание:сформируйте и выведите на экран массив из девяти элементов,каждые три последовательных элемента которого составлены по следующему правилу:
1-й равен значению текущего индекса, увеличенному на 3; 2-й равен квадрату предыдущего индекса; 3-й равен сумме двух предыдущих элементов. 2 Задание : сформируйте массив, содержащий 15 элементов ,с помощью датчику случайных чисел. Получите новый массив,каждый элемент которого равен сумме соответствующего элемента исходного массива и его индекса. В полученном массиве удвойте элементы,которые меньше заданного с клавиатуры числа А,и найдите их сумму . Выведите на экран исходные и полученные результаты .
Вы находитесь на странице вопроса "Срочно решите пожалуйста. В turbo pascal. Выведите на экран вче числа от 1 до N , у которых 4 делителя. Заранее огромное спасибо.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.