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;
    Begin
    clrscr;
    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;
    begin
    clrscr;
    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;
    begin
    clrscr;
    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 do
    for 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.


See also: