Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Zimina
0 / 0 / 0
Регистрация: 27.05.2014
Сообщений: 14
#1

Ввести два числа. Определить какое из них имеет большее количество делителей - Turbo Pascal

27.05.2014, 16:39. Просмотров 533. Ответов 4
Метки нет (Все метки)

Подпрограмма

Ввести два числа. Определить какое из них имеет большее количество делителей;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.05.2014, 16:39
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Ввести два числа. Определить какое из них имеет большее количество делителей (Turbo Pascal):

Ввести два предложения и определить, какое из них короче - Turbo Pascal
Ребят решите плиз очень срочно нужно, каждая минута на счету. Ввести два предложения и определить, какое из них короче.

Ввести с клавиатуры два числа, меньшее из них заменить полусуммой этих чисел, а большее произведением - Turbo Pascal
Ввести с клавиатуры два числа, меньшее из них заменить полусуммой этих чисел, а большее произведением.

Заданы два целых числа. Определить являются ли они оба четными или оба нечетными или какое из них четное, а какое нечетное. - Turbo Pascal
помогите пожалуйста составить программу и блок-схему в Pascal. Заданы два целых числа. Определить являются ли они оба четными или оба...

Даны два числа, найти большее из них - Turbo Pascal
Даны два числа, найти большее из них. При этом не используя условные операторы. Формула для нахождения наименьшего из двух...

Ввести два числа, меньшее заменить полусуммой, а большее — удвоенным произведением - Turbo Pascal
адания для самостоятельного выполнения оператор условного перехода 1. Если среди трех чисел А,В,С имеется хотя бы одно четное. Вычислить...

Найти количество делителей числа. Сколько из них четных - Turbo Pascal
Найти кол-во делителей натурального числа.Сколько из них четных? Помогите,пожалуйста.Я буду очень благодарна!

4
Svager
394 / 374 / 212
Регистрация: 14.09.2013
Сообщений: 1,202
27.05.2014, 22:48 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
uses crt;
function del(n:integer):longint;
var i,k:integer;
begin
k:=0;
 for i:=1 to n do
  if n mod i=0 then
   inc(k);
 del:=k;
end;
var a,b:integer;
begin
 write('a=');
  readln(a);
 write('b=');
  readln(b);
 if del(a)=del(b) then
  begin
   writeln('Êîëñ-ГўГІГ® Г°Г*ГўГ*îå !')
  end
 else
  begin
   if del(a)<del(b) then
    writeln('Êîë-Г±ГІГўГ® äåëèòåëåé áîëüøå Гў ÷èñëå - ',a,' ГЁ Г°Г*ГўГ*Г® = ',del(a))
   else
    writeln('Êîë-Г±ГІГўГ® äåëèòåëåé áîëüøå Гў ÷èñëå - ',b,' ГЁ Г°Г*ГўГ*Г® = ',del(b));
 end;
end.
0
Zimina
0 / 0 / 0
Регистрация: 27.05.2014
Сообщений: 14
27.05.2014, 23:02  [ТС] #3
она работает не правильно, например вводишь 12 и 13 программа выводит число 13, а должен 12, что исправит нужно подскажи)
0
Svager
394 / 374 / 212
Регистрация: 14.09.2013
Сообщений: 1,202
27.05.2014, 23:13 #4
Цитата Сообщение от Zimina Посмотреть сообщение
она работает не правильно, например вводишь 12 и 13 программа выводит число 13, а должен 12, что исправит нужно подскажи)
ой я там чуть с ифом попутал
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
uses crt;
function del(n:integer):longint;
var i,k:integer;
begin
k:=0;
 for i:=1 to n do
  begin
   if n mod i=0 then
    inc(k);
  end;
 del:=k;
end;
var a,b:integer;
begin
 write('a=');
  readln(a);
 write('b=');
  readln(b);
 if del(a)=del(b) then
  begin
   writeln('Êîëñ-ГўГІГ® Г°Г*ГўГ*îå !')
  end
 else
  begin
   if del(b)<del(a) then
    writeln('Êîë-Г±ГІГўГ® äåëèòåëåé áîëüøå Гў ÷èñëå - ',a,' ГЁ Г°Г*ГўГ*Г® = ',del(a))
   else
    writeln('Êîë-Г±ГІГўГ® äåëèòåëåé áîëüøå Гў ÷èñëå - ',b,' ГЁ Г°Г*ГўГ*Г® = ',del(b));
 end;
end.
0
Zimina
0 / 0 / 0
Регистрация: 27.05.2014
Сообщений: 14
28.05.2014, 23:53  [ТС] #5
спасибо большое)
0
28.05.2014, 23:53
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.05.2014, 23:53
Привет! Вот еще темы с ответами:

Даны три действительных числа. Выбрать из них те, которые принадлежат интервалу (1,3) и найти большее из них - Pascal
Даны три действительных числа. Выбрать из них те, которые принадлежат интервалу (1,3) и найти большее из них. Найти числа, которые...

Нужно сделать if-case. Ввести с клавиатуры два числа, выведите первое из них, если оно больше второго и оба числа, если это не так. - Turbo Pascal
Ввести с клавиатуры два числа, выведите первое из них, если оно больше второго и оба числа, если это не так.

Найти все числа в диапазоне от M до N, имеющие ровно k делителей. Функция: количество делителей заданного числа - Turbo Pascal
Найти все числа в диапазоне от M до N, имеющие ровно k делителей. Функция: количество делителей заданного числа Всем привет....

Определить количество нечётных делителей числа - Turbo Pascal
Дано натуральное число N. Определить количество его нечетных делителей. с помощью for


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru