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

18.10.2013, 03:15. **Показов** 1941. **Ответов** 1

Author24 — интернет-сервис помощи студентам

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

@Jener · 18.10.2013, 08:28

Pascal

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.

ЭльмираНедоум
		1
	Составьте программу вывода на экран наибольшего делителя натурального числа T , большего 1 18.10.2013, 03:15. Показов 1941. Ответов 1 Метки нет (Все метки) помогите составить программу по следующим задачам 1. Составьте программу вывода на экран наибольшего делителя натурального числа T , большего 1. 2. Составьте программу вычисления четных цифр натурального числа N и произведения нечетных его цифр. Заранее спасибо

	18.10.2013, 08:28

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

Решение