Помогите написать программу

[toxa777]

Помогите написать программу

1.Дано натуральное число не менее шести разрядов. Найти сумму цифр данного числа стоящих на нечетных местах.
2.Составьте программу определения наименьшего общего кратного двух натуральных чисел.
3.Задано целое число N. Определить количество различных цифр числа N.

 

[Vladimir_S]

Вам обязательно на языке Modula-2, или Кобол сойдёт?

 

[toxa777]

Желательно Паскаль)

 

[Vladimir_S]

Желательно Паскаль)

Ну тогда-то что...

1.Дано натуральное число не менее шести разрядов. Найти сумму цифр данного числа стоящих на нечетных местах.

VAR
 N,m,S:LongInt;

BEGIN
 Write('N= ');
 ReadLn(N);
 m:=1;
 Repeat
  m:=m*10;
 Until m>N;
 m:=m div 10;
 S:=N div m;
 Repeat
  m:=m div 10;
  if m>0 then
   begin
    N:=N mod m;
    m:=m div 10;
    if m>0 then
     S:=S+(N div m);
   end;
 Until m=0;
 Writeln('S= ',S);
 Readln
END.

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

VAR
 N1,N2,M,i:LongInt;

BEGIN
 Write('N1= ');
 ReadLn(N1);
 Write('N2= ');
 ReadLn(N2);
 If N1>N2 then M:=N1 else M:=N2;
 i:=M-1;
 Repeat
  Inc(i);
 Until ((i mod N1)=0) and ((i mod N2)=0);
 Writeln('Result is ',i);
 Readln
END.

3.Задано целое число N. Определить количество различных цифр числа N.

VAR
 N:LongInt;
 S:String;
 i,j:Byte;

BEGIN
 Write('N= ');
 ReadLn(N);
 STR(N,S);
 i:=0;
 Repeat
  Inc(i);
  j:=i;
  repeat
   Inc(j);
   If S[j]=S[i] then
    begin
     Delete(S,j,1);
     Dec(j);
    end;
  until j=Length(S);
 Until i=Length(S)-1;
 Writeln('Number of different figures is ',Length(S));
 Readln
END.

 

[Vladimir_S]

Lizaveta, Ваш запрос перенесен в отдельную тему:
www.tehnari.ru/f41/t60058/
У нас не принято цепляться к чужим!

 

[svoiachka]

как первую задачу с процедурой сделать?