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>
Так пойдет?это все расширения файлов.мне за это поставили 5.
Тим Бернерс-Ли, британский ученый, изобрел World Wide Web (WWW) в 1989 году. Изначально эта разработка была задумана, чтобы удовлетворить спрос на автоматический обмен информацией между учеными в университетах и институтах по всему миру.Первый сайт в мире был посвящен World Wide Web - самому проекту и размещался на компьютере Бернерса-Ли.Веб-сайт описывал основные свойства Интернета; как получить доступ к документам других людей и как настроить свой собственный сервер.30 апреля 1993 программное обеспечение World Wide Web стало общественным достоянием.<span>С этого времени, Web изменил мир и стал самым мощным средством коммуникации в мире.</span>
Порядок переливания краски ( по шагово ) :
шаг перелива - 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8
ведро (12 л) - 12 4 4 9 9 1 1 6
банка (5 л) - 0 0 5 0 3 3 5 0
ведро (8 л) - 0 8 3 3 0 8 6 6
Как я понял , это оно !
https ://www. youtube.com/playlist?list=PLP6-uXxKE5Nuvajs8J9NeuoaPRGZwUlaG