Программа с циклом, помогите доделать Опции

[Lakibooy]

Здравствуйте
помогите с задачкой

Надо ввести число от 100 до 10100,если число вводится и не попадает в этот интервал,то запрос повторяется до тех пор ,пока не дойдет до правильного.Если число введено правильно,то выдать сумму его цифр.

тоесть если я ввожу 678 то мне нужно получить сумму цифр пример 6+7+8=21
как мне это сделать?
Подскажите пожалуста.

Добавлено через 12 мин.
вот код который я написал
но не знаю правельно ли!

uses crt;
Var x,s:integer;
begin
Clrscr;
writeln('Введите число');
readln(x);
repeat writeln('Введите число');
readln(x); until (x<100) and (x>10100);

writeln('сумма,s);
readln;
end.

Сообщение отредактировано: Lakibooy - 6.06.2007 22:47

[compiler]

а где ты считаешь сумму?

[Lakibooy]

а где ты считаешь сумму?

я еще не считал не знаю как?

[compiler]

вобщем держи

type i=integer;
var n:i;

function ReadN:i;
var a:i;
begin
	repeat  
		write('-->');
		readln(a);
	until ( (a>100) and (a<10100) );
	ReadN:=a;
end;

function SumNem(const n:integer):i;
var a:i;
begin
	a:=n;
	SumNem:=0;
	while a<>0 do begin
		SumNem:= SumNem+ (a mod 10);
		a:=a div 10;
	end;
end;

begin
	n:=ReadN;
	WriteLn ( SumNem(n) );
	readln;
	read;
end.

очистку экрана только добавь(если хочеш)...

Сообщение отредактировано: compiler - 6.06.2007 22:57

[Lakibooy]

вобщем держи

type i=integer;
var n:i;

function ReadN:i;
var a:i;
begin
	repeat  
		write('-->');
		readln(a);
	until ( (a>100) and (a<10100) );
	ReadN:=a;
end;

function SumNem(const n:integer):i;
var a:i;
begin
	a:=n;
	SumNem:=0;
	while a<>0 do begin
		SumNem:= SumNem+ (a mod 10); //перед+ пишет что не хватает ( не знаешь почему?
		a:=a div 10;
	end;
end;

begin
	n:=ReadN;
	WriteLn ( SumNem(n) );
	readln;
	read;
end.

очистку экрана только добавь(если хочеш)...

[compiler]

>перед+ пишет что не хватает ( не знаешь почему?
чего не хватает ?процитируй что имено віводится...

Добавлено через 3 мин.
а все я понял это же TP... прошу прощения... сейчас перепишу...

Добавлено через 3 мин.
не перепишу, уже всё забыл... можеш пока ввести отдельную переменную и подождать пока кто нибудь напишет...