Теоретический материал | Справочник по процедурам и функциям |
PROGRAM Primer_1; var i,k,s,p,n: Integer; BEGIN Write('Введите M '); Readln(m); For i:=1 to M do begin s:=0; k:=i; n:=0; While k<>0 do begin k:=k DIV 10; n:=n+1 end; k:=i; While k<>0 do begin p:=k MOD 10; k:=k DIV 10; If p<>0 then s:=Trunc (s+Exp(n*Ln(p))) end; If s=f then WriteLn (f) end; END.
2011-11-11 15:13:57 владимир Помогите написать программу,которая вычисляет сумму N целых положительных чисел.Количество суммируемых чисел должно вводиться во время работы программы. Написать программу ,используя средства вводавывода языка С. Оставить комментарий: |