var s:string;
k:byte;
begin
readln(s);
k:= <span>length(s);
write(k)
end.</span>
Ответ:
15
Объяснение:
У тебя идет цикл от i=1 до i<=5 и параллельно после каждого выполнения цикла i становится на 1 больше
Т.к условие 'до тех пор пока i меньше или не станет равно 5' цикл выполняется
1)i=1
s=0+1=1
2)i=2
s=1+2=3
3)i=3
s=3+3=6
4)i=4
s=6+4=10
5)i=5
s=10+5=15
При достижении i=5 мы выходим из цикла
Если без левых точек в конце( например во 2)-10. ) то:
1) 567
2) -10
5) 8
10) 812
Если точки не просто так, тогда:
1) 567
5) 8
10) 812
Var
A,B:integer;
Begin
Write('Введите два числа: ');ReadLn(A,B);
if A<B then Write(A)
else Write(B)
End.