Технический форум - Помогите написать программу

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Помогите написать программу (http://www.tehnari.ru/f41/t59849/)

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

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

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

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

Цитата:

Сообщение от toxa777 (Сообщение 618674)

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

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

Цитата:

Сообщение от toxa777 (Сообщение 618598)

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.

Цитата:

Сообщение от toxa777 (Сообщение 618598)

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.

Цитата:

Сообщение от toxa777 (Сообщение 618598)

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.

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

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