4 задачи:

ввести натуральное число и определить, верно ли, что сумма цифр равна 10 (через repeat и until)////

 

ввести натуральное число и определить, какие цифры встречаются несколько раз (через repeat и until)///

 

ввести целое число и найти сумму его цифр (через while)

 

ввести целое число и определить , верно ли, что в его записи есть две одинаковые цифры(через while)

 

всё через паскаль абс

а я разве их не решал????????

но ладнооо

1)

Program Pr1;uses crt;var stroka:string; i,k,x:integer; mas:array[byte] of integer;Beginclrscr;readln(stroka);

i:=1;repeat

val(stroka[i],k,x); mas[i]:=k;i:=i+1;

until i=length(stroka);x:=0;for i:=1 to length(stroka) do x:=x+mas[i];if x=10 then writeln('TRUE')else writeln('ELSE');end.

2 я не знаю как решать

3)

Program Pr1;uses crt;var stroka:string;i,k,x:integer;mas:array[byte] of integer;beginclrscr;readln(stroka);i:=1;while i<=length(stroka) do begin val(stroka[i],k,x); mas[i]:=k; i:=i+1; end;x:=0;for i:=1 to length(stroka) do x:=x+mas[i];writeln(x);end.

 4)

Program Pr1;uses crt;var stroka:string;i,k,x:integer;mas:array[byte] of integer;beginclrscr;readln(stroka);i:=1;while i<=length(stroka) do begin val(stroka[i],k,x); mas[i]:=k; i:=i+1; end;x:=0;for i:=1 to length(stroka)-1 dofor k:=1 to length(stroka)-i do if mas[k]=mas[k+1] then x:=x+1;if x>0 then writeln('TRUE')else writeln('FALSE');end.