Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
ЭльмираНедоум
0 / 0 / 0
Регистрация: 14.10.2013
Сообщений: 1
#1

Составьте программу вывода на экран наибольшего делителя натурального числа T , большего 1

18.10.2013, 03:15. Просмотров 799. Ответов 1
Метки нет (Все метки)

помогите составить программу по следующим задачам
1. Составьте программу вывода на экран наибольшего делителя натурального числа T , большего 1.
2. Составьте программу вычисления четных цифр натурального числа N и произведения нечетных его цифр.
Заранее спасибо

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.10.2013, 03:15
Ответы с готовыми решениями:

Составьте программу определения наибольшего общего делителя двух натуральных чисел
1. Составьте программу получения в порядке убывания всех делителей данного...

Составить функцию для нахождения наименьшего нечетного натурального делителя k (k≠1) любого заданного натурального числа n
Составить функцию для нахождения наименьшего нечетного натурального делителя k...

Составьте программу вывода на экран песочных часов
1. Напишите программу замены в тексте всех букв "a" на "o" и наоборот....

Составьте программу вычисления степени натурального числа A с натуральным показателем n.
Составьте программу вычисления степени натурального числа A с натуральным...

Составьте программу вывода на экран всех натуральных чисел
Составьте программу вывода на экран всех натуральных чисел, не превосходящих N...

1
Торович
207 / 207 / 213
Регистрация: 03.07.2012
Сообщений: 446
18.10.2013, 08:28 #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
uses
  crt;
var
  n : longint;
  s, p, T : word;
begin
  clrscr;
  write('1. Натуральное число : '); readln(T);
  n := 1;
  while n<T do begin
   if T mod n = 0 then s := n;  
   inc(n);
  end;
  if s = 1 then writeln(T,' не имеет делителей >1 и < ',T)
  else writeln('Наибольший делитель ',T,' : ',s);
  write('2. Натуральное число : '); readln(n);
  s := 0;
  p := 1;
  while n > 0 do begin
   If n mod 2 = 0 then s := s + (n mod 10)
   else p := p * (n mod 10);
   n := n div 10;   
  end;
  writeln('сумма :',s,' произведение :',p);
  readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.10.2013, 08:28

Составьте программу заполнения и вывода на экран таблицы Пифагора(умножения).
Двумерные массивы.(с процедурами и функциями). Составьте программу заполнения...

Составьте программу, которая в записи натурального числа N меняет местами крайние цифры
задание -Составьте программу, которая в записи натурального числа N меняет...

Составьте программу вывода на экран всех простых чисел, не превосходящих заданного N
Составьте программу вывода на экран всех простых чисел, не превосходящих...


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

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

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