Задача на Паскале

[noone]

Дано натуральное число. Определить:

а) количество цифр в нем;
б) произведение его цифр;
в) среднее арифметическое его цифр;
г) сумму квадратов его цифр;
д) сумму кубов его цифр;
е) его первую цифру;
ж) сумму его первой и последней цифры.

[Vanta11a]

100 рублей на телефон - и сделаю.

[Poma][a]

ну и что? как помочь? выкладывайте наработки, показывайте код или фриланс

[Serge_Bliznykov]

так, для затравки.
решение задачи
A)

var
  s : string;
  N,N0, Len : Longint;
  i : integer;
begin
  ReadLn(N);
  if N<0 then begin
     WriteLn('отрицательные числа для простоты игнорируем...');
     Halt;
  end;

  {способ 1}
  Str(N, s);
  WriteLn('Количество цифр = ',Length(s));
  Readln;

  {способ 2}
  Len := 0;
  N0 := N;
  repeat
    Inc(Len);
    N0 := N0 div 10;
  until N0=0;
  WriteLn('Количество цифр = ',Len);
  Readln;

  {способ 3}
  if N=0 then WriteLn('Одна цифра')
  else begin
    Len := trunc(ln(N)/ln(10))+1;
    WriteLn('Количество цифр = ',Len);
  end;
  Readln;
end.

рекомендую взять способ 2.

b)

function MultiDidigts(Num:longint):longint;
var
  MyM : longint;
  OneDigit : longint;
begin
   MyM := 1;
   while Num>0 do begin
       OneDigit := Num mod 10;
       Num := Num div 10;
       MyM := MyM * OneDigit;
   end;
  MultiDidigts := MyM;
end;

в)

function AverDidigts(Num:longint): extended;
var
  MyS : longint;
  Len : integer;
begin
   MyS := 0;
   Len := 0;
   repeat
      Inc(Len);
      MyS := MyS + (Num mod 10);
      Num := Num div 10;
  until Num=0;
  AverDidigts := MyS/Len;
end;

г)

function SumSquareDidigts(Num:longint):longint;
var
  MyS : longint;
  OneDigit : longint;
begin
   MyS := 0;
   repeat
      MyS := MyS + sqr(Num mod 10);
      Num := Num div 10;
  until Num=0;
  SumSquareDidigts := MyS;
end;

ну и достаточно, имхо..
(p.s. если внимательно разобрать примеры кода - то легко решить и остальные задачи)

p.p.s. писал код прямо тут, в браузере. поэтому возможны неточности и опечатки..

[Aranea tela telam]

д

Program pr15;
var
s,f:string;
g,i,n:integer;
begin
n:=0;
Readln (s);
i:=Length(s);
for g:=1 to i do
begin
f:=copy(s,g,1);
f:=inttostr(strtoint(f)*strtoint(f) *strtoint(f));
n:=(strtoint(f)+n);
end;
writeln(n);
end.

е

Program pr15;
var
s,f:string;
begin
Readln (s);
f:=copy(s,1,1);
writeln(f);
end.

ж

Program pr15;
var
s,h:string;
i:integer;
begin
Readln (s);
i:=Length(s);
h:=inttostr(strtoint(copy(s,1,1))+s trtoint(copy(s,i,1)));
writeln(h);
end.