Var
a, b: integer;
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>
1) ЭНЦИКЛОПЕЦИЯ КОРОЛЕВСТВО
там через каждую букву читать
2)Рибонуклеиновая кислота
Телефонный разговор
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.
var a,b,c:real;
begin
readln(a,b,c);
if a> max(b,c) then writeln(a)
else if b> max(a,c) then writeln(b)
else writeln(max(a,c))
end.
1.Обычный шрифт.
2.Жирный.
3.Курсивный.
4.Подчеркнутый.
5.Жирный,курсивный.
6.Жирный,подчеркнутый.
7.Курсивный,подчеркнутый.
<span>Даны три целых числа. Найти количество положительных и количество отрицательных чисел в исходном наборе.</span>