Меню сайта

Задача №10

Посчитать сумму цифр —всех — -целых чисел 1 до n.


Program for_10-

uses crt-

var i,j,n,er,s,t : integer-

a : string-

begin

clrscr-

write(‘введите число n ‘)-readln(n)-

s:=0-

for i:=1 to n do

begin

str(i,a)-

for j:=1 to length(a)do

begin

val(a[j],t,er)-

s:=s+t-

end-

end-

write(‘сумма=’,s)-

readln-

end.

Категория: Циклы | Дата: 19.11.12

Меню раздела
Блок