сервис вопросов и ответовПомогите пожалуста!!! Даны два числа. определить какой число имеет больше делителей. в паскале цикл
5-9 класс|
|
Sahasahax
18 июля 2013 г., 23:13:12 (10 лет назад)
Detektiv2601
19 июля 2013 г., 1:25:00 (10 лет назад)
var a,b,i,nda,ndb:integer;
begin
readln(a,b);
nda := 0;
ndb := 0;
for i := 1 to a do
if (a mod i = 0) then inc(nda);
for i := 1 to b do
if (b mod i = 0) then inc(ndb);
if (nda > ndb) then
writeln(a, ' has more divisors than ', b)
else if (ndb > nda) then
writeln(b, ' has more divisors than ', a)
else
writeln(a, ' and', b, ' has equal number of divisors')
end.
Korotkevichk
19 июля 2013 г., 3:48:17 (10 лет назад)
var
a,b,i,n,k,z:integer; {k, z - количество делителей числа}
BEGIN
readln(a,b); {Cчитаем эти два числа}
k := 1;
z := 1;
if a > b then
n := a
else
n := b;
for i := 2 to n do
begin
if (a >= i) and (a mod i = 0) then
k := k + 1;
if (b >= i) and (b mod i = 0) then
z := z +1
end;
if k = z then
write('Одинаковое количество делителей')
else
if k > z then
write('Число a имеет больше делителей')
else
write('Число b имеет больше делителей')
END.
Если что непонятно, как получается - пиши.
Ответить
Другие вопросы из категории
Задача 1. При угадывании целого числа в некотором диапазоне было получено 6 бит информации. Сколько чисел содержит этот диапазон?
Задача 2. Сообщение о том, что ваш друг живет на 10 этаже, несет 4 бита информации. Сколько этажей в доме?
Задача 3. Сообщение о том, что Петя живет во втором подъезде, несет 3 бита информации. Сколько подъездов в доме?
(Pascal) Задача:
Ввести массив из 5 элементов с клавиатуры. Вывести элементы на экран и найти их сумму.
РЕШИТЕ ПОЗЯЗЯ!
Программа это одушевлённое или неодушевлённое,собственное или нарицательное?
Мышь это одушевлённое или одушевлённое,собственное или нарицательно?
Читайте также
На планете Триа использую только числа от 1 до 27. Их записывают с помощью символов «<»,«.» и
«>». Запись числа N выполняется по следующему алгоритму:
1) весь интервал (1..27) делится на 3 равные части: от 1 до 9, от 10 до 18 и от 19 до 27.
2) если число N оказалось в первом интервале, записываем символ «<», если во втором символ «.», и если в третьем – символ «>»
3) делим оставшийся интервал (в который попало число N) на три части и определяем следующий знак кода, который записывается справа от предыдущих
4) повторяем шаги 2 и 3 до тех пор, пока оставшийся интервал не будет содержать одно число.
Например, число 22 будет закодировано как «>.<» (интервалы 19-27, 22-24, 22).
Определите, какое число записывается как «.<>»?
1. Даны два различных вещественных числа X и Y. Написать программу, возведения наименьшего из чисел в квадрат, наибольшего – в куб и нахождения среднего
арифметического полученных значений.
2. За весну Обломов похудел на p1 кг, за лето поправился на p2 кг, за осень похудел на p3 кг, за зиму поправился на p4 кг. Написать программу, определяющую, похудел или поправился за год Обломов.
3. Написать программу, которая определяет, является ли целое число четным двузначным числом.
4. Даны коэффициенты квадратного уравнения. Написать программу, определяющую его корни
даны два числа. Если первое число нечетное, то найти сумму кубов, а иначе - куб суммы. даны три числа. Если хотя бы одно из чи
сел - отрицательное, то найти Iа+ b+cI иначе а+b+c +d в корне.
Даны три числа. Если произведение данных чисел - отрицательное, то каждое число возвести в квадрат, иначе найти модуль каждого числа
ПОМОГИТЕ ОЧЕНЬ ПРОШУ
Перед вами китайские счеты- суаньпань, на которых отложены различные числа. на картинке слева- число 16317. А какое число показано на картинке Перед
вами китайские счеты- суаньпань, на которых отложены различные числа. на картинке справа - число 16317. А какое число показано на картинке слева? картинки у меня на стр. Помогите, буду благодарна
Вы находитесь на странице вопроса "Помогите пожалуста!!! Даны два числа. определить какой число имеет больше делителей. в паскале цикл", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.