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

4 задачи:

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


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


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


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

 

 

  • Program pr1;
    uses crt;
    var i,l,j:integer;
    mas:array[byte] of integer;
    x:string;
    begin
    clrscr;
    writeln('Vvedite x');
    readln(x);
    i:=0;
    repeat
    i:=i+1;
    val(x[i],l,j);
    mas[i]:=l;
    until i=length(x);
    j:=0;
    for i:=1 to length(x) do j:=j+mas[i];
    if j=10 then writeln('Verno')
    else writeln('Ne verno');
    end.

     хууууу.....вот

     

    3) решение

    Program pr3;
    uses crt;
    var i,l,j:integer;
    mas:array[byte] of integer;
    x:string;
    begin
    clrscr;
    writeln('Vvedite x');
    readln(x);
    i:=0;
    while i<=length(x) do begin
    i:=i+1;
    val(x[i],l,j);
    mas[i]:=l;
    end;
    j:=0;
    for i:=1 to length(x) do j:=j+mas[i];
    writeln(j);
    end.

     


See also: