Написать программу которая складывает числа до тех пор пока не получится число состоящее из одной цифры.пример:5+5+5=15=1+5=6он
Написать программу которая складывает числа до тех пор пока не получится число состоящее из одной цифры. пример: 5+5+5=15=1+5=6 он должен ответ складывать так как показано в примере как это сделать я не как не могу понять(
begin readln(a); while (inttostr(a).Length > 1) do begin b := 0; foreach c: char in inttostr(a) do b += strtoint(c); a := b; end; writeln(b); <span>end. ======================= var a, b, e: integer; d: string;
begin readln(a); d := inttostr(a); while (length(d) > 1) do begin d := inttostr(a); b := 0; for e := 1 to length(d) do b += strtoint(d[e]); a := b; end; writeln(b); <span>end.</span></span>
Var x,y:real; begin write('Введите X: '); readln(x); write('Введите Y: '); readln(y); if (y>0) and (x*x+y*y<=1) then writeln('Принадлежит') else writeln('Не принадлежит'); end.