Цитата:
Сообщение от toxa777
Желательно Паскаль)
|
Ну тогда-то что...
Цитата:
Сообщение от toxa777
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
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
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.