Ответ:
stroca = input()
summa = 0
while stroca != 'Спасибо.':
summa += 1
stroca = input()
summa += 1
print(summa)
Объяснение:
Щелкаешь ПКМ по надписи: выровнять: прямая строка с переносом: применить для всех: сохранить.
Если исполнитель помечает каждую клетку на которой он находится, то
он выполнит 7 команд 100 раз, учитывая то, что изначальная клетка уже помечена. Из этого имеем: 7 * 100 + 1 = 701. Но если во время первого цикла будет помечено 4 клетки (из-за команд, он вернётся в начало), то следующие разы он будет помечать по 2 клетки. Занчит 4 + 2 * 99 + 1 = 103 клетки.
Var
i,x:integer;
begin
i:=0;
while x<>0 do
begin
readln(x);
i:=i+1;
end;
writeln(i);
end.