задачку в паскале помогите сделать: (внутри)

Question

1. Ввести натуральное число и определить, верно ли, что сумма его цифр равна 10. 
 
Пример: 
 
Введите число >= 0: Введите число >= 0: 
 
-234 1233 
 
Нужно положительное число. Нет 
 
Введите число >= 0: 
 
1234 
 
Да 
 
2. Ввести натуральное число и определить, какие цифры встречаются несколько раз. 
 
Пример: 
 
Введите число >= 0: Введите число >= 0: 
 
2323 1234 
 
Повторяются: 2, 3 Нет повторов.

Олег Манжиков · Accepted Answer

Сделаю всё за 200 рублей!)

Галина Иванова · Answer

1) var Str : String; Sum : Integer; P : Byte; Err : Boolean; 
begin 
 Write('Введите натуральное число (до 255 цифр) : '); ReadLn(Str); 
 Sum := 0; P := 0; Err := False; 
 while Not Err and (P < Length(Str)) do 
 begin 
 Inc(P); 
 Err := Str[P] in [#48..#57]; 
 Sum := Sum + Ord(Str[P]) - 48; 
 end; 
 if Err then 
 WriteLn('Это не натуральное число') 
 else 
 WriteLn('Сумма цифр равна 10 = ', Sum = 10); 
end. 
 
2) var Str : String; Ch : Char; Arr : array [#48..#57] of Byte; P : Byte; Err : Boolean; 
begin 
 Write('Введите натуральное число (до 255 цифр) : '); ReadLn(Str); 
 for Ch := #48 to #57 do 
 Arr[Ch] := 0; 
 P := 0; Err := False; 
 while Not Err and (P < Length(Str) do 
 begin 
 Inc(P); 
 if Str[P] in [#48..#57] then Inc(Arr[Str[P]]) else Err := True; 
 end; 
 if Err then 
 WriteLn('Это не натуральное число') 
 else 
 begin 
 P := 0; 
 for Ch := #48 to #57 do 
 if Arr[Ch] > 0 then 
 begin 
 if P = 0 then Write('Повторяются: '); 
 Inc(P); 
 Write(#32, Ch); 
 end; 
 if P = 0 then 
 Write('Нет повторов. '); 
 WriteLn; 
 end; 
end.